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Aktuell +++ Aktuell +++ Aktuell +++ Aktuell 



N£U: Polarisationsfilter für 

Bildschirme und Monitore 


Jetzt können Sie 
überall im Fachhan¬ 
del die neuen Polari¬ 
sationsfilter der 
John Hall Compu¬ 
terdivision Ham¬ 
burg erwerben. Die 
Filter gibt es in ver¬ 
schiedenen Größen, 
so daß jeder Bild¬ 
schirm oder Monitor 
auf einfache Weise 
mit ihm ausgerüstet 
werden kann. 

Weiter S. 29 



Schwankungen oder Störungen im den Geräten. Die Deutsche Generalvertre- 
Stromnetz sind oft Ursache von Compu- tung für die SICOS Computerzubehörlinie 
terfehlern wie Datenverlust oder - im führt neuerdings im Sortiment eine 
schlimmsten Fall - Beschädigungen an Stromschiene mit integriertem Netzfilter, 


der solche Schwankungen oder kurzfristi¬ 
ge Spannungsanstiege durch statische 
Entladung ausgleicht. Ebenfalls werden 
durch eine Hochfrequenzdrossel Störun¬ 
gen abgebaut, die via Erdleiter übertragen 
werden. Die Stromschiene kann überdies 
in den SICOS-Computerständer integriert 
werden, sodaß nur noch ein einziges Ka¬ 
bel zum Arbeitsplatz führt, und die Vertei¬ 
lung an die Peripheriegeräte direkt von 
dort aus erfolgt, was dem „Kabelsalat“ un¬ 
ter dem Pult ein Ende bereitet. 
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Serie 



Fortsetzung unserer 2-teillgen 
Serie über die Tastaturvenwal- 
tung des Commodore 64. 

Um über die Tastatur ein Steuerzeichen 
drucken zu können, braucht man eben ei¬ 
nige Mühe. In Tabelle 2 habe ich zusam¬ 
mengefaßt, wie man das erreichen kann. 


Ein Zeichen mit einem ASCII-Wert von 0 
bis 30 kann man ausnahmslos mit Hilfe 
der CTRL-Taste zusammen mit der pas¬ 
senden Normal-Taste drucken. Es scheint, 
daß die CTRL-Taste den ASCII-Wert um 64 
herunterbringt (d. h. 6. Bit löscht). Gesam¬ 
te Zeichenfarbensteuerurig über CTRL-Ta¬ 
ste zusammen mit Zifferntasten ist aber so 
willkürlich aufgebaut, daß man keine Ge¬ 

TABEULE—S 


ASC ZCHN 

BEMERKUNG 

TASTE 

ASC ZCHN 

PEEK< 203) 

e “ü“ 


CTRL+e 

64 "©■ 

46 

l m U m 


CTRL+* 

65 “a“ 

10 

s "a" 


CTRL+b 

66 "b" 

28 

3 “3" 

'y 

CTRL+c /Stop 

67 H c M 

20, 63 

4 "3“ 


CTRL+d 

68 “d " 

18 

5 "3" 

Ule iss 

CTRL+e / CTRL+2 

69 M e H 

14 , 59 

6 "3" 

CTRL+t / CTRL+* 

70 "f" 

21 , 57 

7 "3" 


CTRL+g 

71 M g “ 

26 

8 M JP 

BlcK Sh+C 

CTRL+h 

72 “h* 

29 

9 “H“ 

Entr 5h+C 

CTRL+i 

73 *»■ 

33 

10 a 

Line Feed 

CTRL+j 

74 " j H 

34 

11 m M a 


CTRL+K 

75 "K “ 

37 

12 “!•" 


CTRL+1 

76 “1 ■ 

42 

13 3 

Return 

CTRL+m / Return-? 

77 "m" 

1 , 3,6 

14 H 3 H 

Gr/Klein 

CTRL+n ' 

78 M n " 

39 

15 "3 H 


CTRL+o 

79 “o“ 

38 

16 "3" 


CTRL+p 

80 "p” 

41 

17 SS 

Cur-unter 

CTRL+q /' CRSR-U 

81 M q“ 

7, 62 

13 3 

RVS-on 

CTRL+r / CTRL+9 

82 "r" 

17, 32 

19 "3" 

Home 

CTRL+s / HOME 

83 "s“ 

13, 51 

20* *3“ 

Del 

CTRL+t / Del-? 

84 “t" 

0, 22 

21 “3“ 


CTRL +u 

85 "u" 

30 

22 H S U 


CTRL+U 

86 H v“ 

3 1 

23 H B" 


CTRL+u 

87 "W 

9 

24 “3* 


CTRL+x 

88 "x " 

23 

25 *B M 


CTRL+y 

89 "y " 

25 

26 "3" 


CTRL+z 

90 "z “ 

12 

27 “3 h 


CTRL+C 

91 U C " 

45 

28 “3“ 

Rot 

CTRL+£ / CTRL+3 

92 "f 

8, 48 

23 m 

Cur-recht 

CTRL+3 / CRSR-R 

93 "3 H 

2, 50 

30 "H" 

Grn 

CTRL+t / CTRL+6 

94 "t“ 

19, 54 

31 "3" 
123 “3“ 

Blau 

CTRL+- / CTRL+7 

95 M 4- u 

192 

24, 53 

129 "3" 

130 “3" 

Orange 

COM+ 1 

193 "A" 

194 "B" 

56 

131 -a** 

132 -gi» 

7 

Shift + / COM+Stop-? 

195 "C" 

196 M D" 

63 

133 "3" 


Fn-Taste 1 

197 "E" 

4 

134 "3“ 


Fn-Taste 3 

198 “F" 

5 

135 “B“ 


Fn-Taste 5 

199 "G“ 

6 

136 “fl" 


Fn-Taste 7 

200 “H" 

3 

137 “3“ 


Fn-Taste 2 

201 u r 

4 

i3s m m m 


Fn-Taste 4 

202 "J" 

5 

139 "3“ 


Fn-Taste 6 

203 “K" 

6 


setzmäßigkeit mehr findet. Man ist ge¬ 
zwungen, blind der Anleitung zu folgen. 
Obwohl in Tabelle 2 in Spalte Jaste“ dar¬ 
auf hingewiesen wird, welches Steuerzei¬ 
chen mit welcher Taste (bzw. Tastenkom¬ 
bination) hinter einem Ausführungszei¬ 
chen geschrieben werden kann, muß man 
an dieser Stelle den Anwender darauf auf¬ 
merksam machen, daß vier von diesen 
nicht erreichbar sind. Dies sind ’Return’ = 
CHR$(13), ’Shift+Return’=CHR$(141), 
’Del=CHR$(20) und ’Shift+Stop’= 
CHR$(131). In solchen Fällen ist zu schrei¬ 
ben: 


PRINTCHR$P3) 

oder entsprechende ASCII -Werte. Ausfüh¬ 
rung von ’Stop' bzw. ’Shift+Stop’ mit 
PRINTCHR$(3) bzw. 131 gelingt nicht. Um 
das Programm zu unterbrechen muß man 
direkt die ’Stop’-Taste drücken oder im 
Programm an geeigneter Stelle den 
BASIC-Befehl ’STOP zufügen. 

In der letzten Spalte der Tabelle 2 stehen 
die Codenummern der zu drückenden Ta¬ 
sten. Diese Nummern werden im Spei¬ 
cherplatz 203 registriert, wenn man die 
entsprechende Taste drückt. Nach dieser 
Nummer sucht das Betriebssystem aus 
der Tasten-Code-Matrix den ASCII heraus 
und druckt das entsprechende Zeichen 
aus. Wie Sie aus der Tabelle entnehmen 
können, gibt es für manche Zeichen keine 
Tastennummer. Diese Zeichen können al¬ 
so auch nicht mit einer Taste (bzw. Tasten¬ 
kombination) direkt abgedruckt werden. 
Nur im Umweg kann man solch eih Zei¬ 
chen auf Bildschirm (oder Papier) brin¬ 
gen. Ein Beispiel wäre inverses groß ’N’, 
das für die Umschaltung in den Groß/Gra¬ 
phik Modus benötigt wird (Ersatz von 
POKE 53272,21 oder Commodore+Shift 
Tasten). Dieses Zeichen am Anfang eines 
Programms wird nicht selten gebraucht. 
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140 



141 

X 

Sh+Return 

142 

X 

Gr/Gra-f ic 

143 

•»" 


144 

n Jh 

Schwarz 

145 

H|N 

Cur-hoch 

146 

H JW 

RVS-off 

147 


CI r/Ho me 

148 

"fl“ 

Insert 

149 

m m m 

Braun 

150 

»a» 

hell Rot 

151 

“fl" 

Grau-i 

152 

Ufl N 

Grau-2 

153 

"O" 

hell Grn 

154 

"** 

hell Blau 

155 

-s- 

Grau-3 

156 

H X H 

Violett 

157 

-r 

Cur-1inKs 

156 

-sr 

Gelb 

159 


Cyan 


Fn-Taste 8 
Shift+Return-? 


CTRL+1 
CRSR-H 
CTRL+8 
CLR 
INST 
COM+ £ 
COM+ 3 
COM+ 4 
COM+ 5 
COM+ 8 
COM* 7 

com+ e 

CTRL+3 
CRSR-L 
CTRL*8 
CTRL*4 


204 

“L“ 

3 

205 

■M" 

1 

206 

“N“ 


207 

*0■ 


208 

■P- 

56 

209 

“Q* 

7 

210 

"R“ 

35 

211 

og> 

51 

212 

■T* 

0 

213 

“U" 

59 

214 


8 

215 

"W“ 

11 

216 

•x* 

16 

217 

*Y“ 

19 

218 

"2" 

24 

219 

*T* 

27 

220 


16 

221 

■r 

2 

222 

■v 

27 

223 

“fl“ 

11 


Besonders die Programme, die den gra¬ 
phischen Zeichensatz für das Programm 
benötigen (z.B. Spielprogramme) benut¬ 
zen es sehr häufig. Es sind mehrere Ar¬ 
beitsgänge notwendig, um solch ein Zei¬ 
chen ins Programm hineinzuschreiben: 

Taste ’RVS on’ / Shift+’n’-Tasten / Taste 
’RVS off / Taste ”” / Return 
dann Cursor wieder vor das inverse 'N' 
bringen und Taste ”” und Return 

Graphische Darstellung der Arbeitsgänge: 

ZeilenNr/PRINT/leer/PVS on/N/RVS off/7 

Return 

XX 

Cursor hler/’VReturn 


TABELLE— 3 


TST flSC ZCH UNGESHIFT ASC ZCH GESH1FTET 


0 

20 

■fl“ Del-? 

148 “fl" Insert 

1 

13 

fl Return-? 

141 B Sh+Return? 

2 

29 

Bl Cur-recht 

157 Cur-1inKs 

3 

136 

■fl“ Fn-Taste-7 

140 “fl" Fn-Taste-8 

4 

133 

■X" Fn-Taste-1 

137 "tt" Fn-Taste-2 

5 

134 

"X" Fn-Taste-3 

138 “II" Fn-Taste-4 

6 

135 

■fl“ Fn-Taste-5 

139 "fl" Fn-Taste-6 

7 

17 

H Cur-unter 

145 "fl" Cur-hoch 

8 

51 

“3“ 

35 ■#" 

9 

87 


215 "W“ 

10 

65 

■a “ 

193 "ft" 

1 1 

52 

1*4 M 

36 “* H 

12 

90 

"z “ 

218 "Z" 

13 

83 

■s“ 

£11 M S" 

14 

69 

“e " 

197 "E“ 

15 

1 

“fl" ? 

1 ^3" ? 

16 

53 

"5“ 

37 "M" 

17 

82 


210 “R" 

18 

68 

“d“ 

196 "D" 

19 

54 

"6" 

38 

20 

67 

“c " 

195 "C" 

21 

70 

»fi* 

198 "F" 

22 

84 

u 

212 tt T H 

23 

88 

“x “ 

216 "X M 

24 

55 

“7" 

39 “ ' ■ 

25 

89 

■y" 

217 "Y" 

26 

71 

- Mg U 

199 "G" 

27 

56 

"8" 

40 ■< * 

28 

66 

»b “ 

194 "B" 

29 

72 

“h" 

200 “H" 

30 

85 

»u " 

213 ’’U M 

31 

86 


214 "V" 

32 

57 

H0M 

4 1 M ) " 

33 

73 

• i ■ 

201 "4" 

34 

. 74 

"j " 

202 "J" 

35 

48 

B0II 

48 "0“ 

36 

77 

» m M 

205 "M" 

37 

75 

H K " 

203 "K" 

38 

79 

“o“ 

£07 “O" 

39 

78 

-n“ 

206 "N“ 


ftSC ZCH 

COMMODORE 

ftSC ZCH CTRL 

148 "fl" 

Insert 

255 "fc" ?? N.N 

141 fl 

Sh+Return? 

255 11 Ä" ?? N.N 

157 "B" 

Cur-1 inKs 

255 "Ä" ?? N.N 

140 “fl" 

Fn-Taste-8 

255 ?? N.N 

137 "fl“ 

Fn-Taste-2 

255 “ft“ ?? N.N 

138 "M" 

Fn-Taste-4 

255 "tt" ?? N.N 

139 “fl" 

Fn-Taste-6 

255 "fc" ?? N.N 

145 "fl" 

Cur-hoch 

255 "*fe“ ?? N.N 

150 “fl* 

hell Rot 

28 "fl“ Rot 

179 “t" 


23 "fl“ 

176 "r" 


1 "fl H ? 

151 "fl" 

Grau-1 

159 "38" Cyan 

173 


26 "fl" 

174 "i“ 


19 "fl" Home 

177 ,,J -" 


5 "fl" Ne iss 

1 "fl" 

7 

255 ?? N.N 

152 "fl" 

Grau-2 

156 "fl" Violett 

178 "t” 


18 fl RVS-on 

172 " ■" 


4 "a** ? 

153 "fl" 

hell Grn 

30 "U" Grn 

188 " "" 


3 "a" Stop 

187 


6 "fl" 

163 


20 "fl" Del-? 

189 " J " 


24 "fl" 

154 M fl" 

hell Blau 

31 "3" Blau 

183 


25 "fl" 

165 "1 " 


7 »fl» 

155, "fl" 

Grau-3 

158 “tf“ Gelb 

191 "V 


2 " fl" ? 

180 "| " 


8 "fl" BlcK Sh+C 

184 


21 "fl" 

180 "■ " 


22 "II" 

41 " > " 


13 fl RVS-on 

162 


9 "fl“ Entr Sh+C 

181 "| " 


IO 11 Line Feed 

43 "0" 


146 "fl" RVS-off 

167 " 1" 


13 B Return-7 

161 "1 " 


11 "fl" 

185 


15 "fl" 

170 u | M 


14 "fl" Gr/Kl ein 
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sene 


219 

£08 "P" 

204 “L« 
2 £ i ,» | » 


186 ■V« 
60 H < " 


166 »y 
175 " 
182 " I" 
220 » 
6 £ ">'* 
91 »C " 
164 

60 **< » 


"S" ?? N.N 


, *« N ?? N.N 
?? N.N 


93 

147 -a H CIr/Home 
i "a" ? 


CI r/Home 
*> 


Sh +Spate 

? 

LoacHr?un 


93 M J" 

147 "a» 

1 "3" 

61 '* = " 

222 "S 1 
63 " ? " 

129 "3" Orange 
95 

4 »y» ? 

143 "M" Braun 
160 • « Sh+Space 

£ "3" ? 

171 » p» 

131 »■" Load+Run 


255 

"* M 

?? N.N 

28 

»g» 

Rot 

255 

"Ä" 

?? N.N 

29 

U 

Cur-recht 

255 


?? N.N 

255 

''S'* 

?? N.N 

31 

iigii 

Bl au 

30 

Hy« 

Grn 

255 

“Ä” 

?? N.N 

144 

-m* 

Schwarz 

6 

»y« 


255 


?? N.N 

5 

ny.. 

We iss 

255 


?? N.N 

255 


?? N.N 

17 

£9 

Cur-unter 

255 


?? N.N 


Die Tasten code-Matrix wird in Tabelle 3 
näher betrachtet. Davor müssen wir noch¬ 
mal Tabelle 1 einsehen. Eben haben wir 
gesehen, daß alle Steuerzeichen nicht 
über die Tastatur zu erreichen sind. Verall¬ 
gemeinert kann man sagen, daß alle 
ASCII-Werte nicht im Tastencodematrix 
des Betriebssystems enthalten sind. Auch 
der Zeichensatz von ASCII 96 bis 127 so¬ 
wie von 224 bis 225 fehlt hier. Im Direkt¬ 
modus können Sie es folgenderweise 
nachprüfen: 

X=(ein Wert zwischen 96 und 127 oder 
zwischen 224 und 255) 
?“?aS("cH(34)cH(x)cH(34)“)“ 

Wenn Sie z. B. X=97 eingeben, wird nach 
'Return’: 

?aS(‘A“) 

auf dem Bildschirm erscheinen. Bringen 
Sie den Cursor nun in diese Zeile und 


drücken Sie nochmal 'Return*. Nun er¬ 
scheint entgegen Ihrer Erwartung 193 an¬ 
statt 97. Die Erklärung dafür ist, daß alle 
Zeichen, die im Bildschirm erscheinen, 
nach Bildschirmcode (vgl. S. 133 im 
Handbuch) ausgegeben werden. Es be¬ 
steht ein Zusammenhang zwischen Bild¬ 
schirmcode und ASCIi-Wert. Beim Schrei¬ 
ben werden alle ASCII-Werte in Bild- 
schirmcode umgewandeit. Beim Einlesen 
werden aber zur Eindeutigkeit nur be¬ 
stimmte ASCII-Werte ausgegeben. 

Die Tasten-Code-Matrix ist auch nur mit 
diesen ASCII-Werten aufgebaut 
Es sind 64 Nummern (von 0 bis 63) für die 
Tastatur bestimmt. Eine Taste hat ob Sie 
ohne oder mit Shift-, Commodore- oder 
CTRL-Taste drücken, immer die gleiche 


schiedlich. Sie sind in entsprechenden 
Spalten eingetragen. 

Die Codenummern 15,52,58 & 61 (ASCII 
1,1,4 & 2) werden nicht im Speicherplatz 
203, sondern in 653 additiv eingespei¬ 
chert. DieserSpeicherplatz ist für Flags für 
Shift- (Fl. = 1), Commodore - (Fl.=2) & 
CTRL- (Fl.=4) Tasten bestimmt. Wenn 
gleichzeitig mehrere Tasten gedrückt wer¬ 
den, wird die Summe dieser Werte abge¬ 
speichert. Die Betriebsroutine sucht die 
Code-Matrix-Tabelle und gibt das passen¬ 
de Zeichen heraus, bzw„ wie beim Shift+ 
Commodore-Tastenkombination (Fl.=3), 
leitet die Graphik/Text-Umschaltung ein.' 
im übrigen wird in der Tabelle 3 eindeutig 
darauf hingewiesen, welche Taste bzw. 
Tastenkombination man drücken muß, 
um den gewünschten ASCII-Wert zu be¬ 
kommen. 


^ -— ’i uig yiciuie 

Nummer. Die ASCII-Werte sind aber unter- 

Nummern, Zeichenbild ^i^ASG^WertTsind'in'd“ Tabelle S(«Hrt| 6 togS ChliSt 2uSarnmensetlö,i 9 e Tastatur-Code- 




P-PeeK<£03>: T=Tastes Z=2eichen: A=ASCII-Wer* 
T, z, A sind ungesh if-tet 


P 57 56 59 08 

T «- 1 2 3 

2 ••«-» h | » Hg, n 3 « 

A 95 49 50 51 


43 48 51 00 

1 HOM DEL 

“ - " "£ " »y ii 

45 9S 19 e0 
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Zum guten SchluB ein 
zur Anwendung 


Das schönste Programm, das 
ich am Anfang abgetippt ha¬ 
be, ist das Klavierprogramm 
aus dem Handbuch. Ärger¬ 
lich an diesem Programm ist, 
daß wenn Sie Ihre Finger 
schnell über die Tasten be¬ 
wegen, der Klang nicht nach- 
kommen kann. Das liegt am 
Programm, das in BASIC ge¬ 
schrieben ist. Noch schlim¬ 
mer ist, daß es nachklingt, als 
ob der Computer sich selbst¬ 
ständig gemacht hat. Die Ur¬ 
sache dafür liegt daran, daß 
die Tastaturbelegung über Zeichenkette 
geschehen ist. Die Tastaturabfrage ge¬ 
schieht auch nach Zeichen (A$). C-64 hat 
einen Puffer für eingegebene Zeichen, der 
für manche Zwecke sehr nützlich ist, aber 
hier störend wirkt. 

Weil man die Tastatur auch nach Code- 
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nummern abfragen kann, habe ich eine 
kleine Korrektur vorgeschlagen. Unten 
sind die Korrekturzeilen, die Sie in ent¬ 
sprechende Stellen eintragen können. Sie 
haben damit den unerwünschten Nach¬ 
klang verbannt. Weitere Verbesserungen 
können Sie dadurch anbringen, daß Sie 


am Anfang des Programms ein Steuerzei¬ 
chen für Groß/Graphik zufügen. Das schö¬ 
ne Klavierbild erscheint nicht auf dem 
Bildschirm, wenn sie vorher Groß/Klein- 
Modus eingestellt haben, um andere Ar¬ 
beiten (z.B. Textverarbeitung) zu erledi¬ 
gen. 



10 print“ “ 

• 

• 

230 K$=“5662590908141716221925243033323835414643494854515053“ 



240 for h=1tolen(K$)step2:K(val(mid$(K$,i,2))=(i+1)/2:next 

• 

• 

305 K=peek(203) 



310 fn=f(K(K))/m:fl=sity*7:wFI+4:iffr=zthen420 

• 

• 

ready. 



Nach dem Motto mehr Spaß in den „Hackerbuden‘ 


Computer-Kommunikation 

SpaB mit dem C-64 

Das nachfolgende Kurzlisting ist ein tolles Kom¬ 
munikationsprogramm mit Ihrem Computer. 
Tippen Sie die wenigen Zeilen ein, und warten 
Sie ab, was geschieht! Ein Tip: Der Text kann je¬ 
derzeit durch neue Zeilen von Ihnen ersetzt wer¬ 
den. 


0 data 162,223,160,0,185,0,160,153,0,160 
,200,208,247,238,24,10,238,27,10 
1 data 232,208,236,169,54,133,1,169,83,1 
41,117,164,169,191,141,119,164,96 
80 for i*257S ta 2614s read qspoke i,q:ne 
Kt 

90 sys 2578 

100 a$«"was be-f i ehl st du, mei n mei st er ? 

ii 

110 a$=chr*(10)+chr* <13)+a$+chr*(13)+chr 
*< 0 ) 

130 -for i = 1 to len(a$) 

140 pake 48980+i,asc<mid*(a*,i,1)) 

150 next 


6 




1/86 
















Programme 


Heut Sonderzeichen werden durch Klartext ersetzt! 


Um Ihnen die Eingabe unserer Listings zu 
erleichtern, werden künftig alle C-64-U- 
stings ohne Steuerzeichen abgedruckt. 


Eingabe-Hinweise für Commodore C-64-Benutzer! 

Tastenfunktionen finden Sie in jedem Tro- 
nic-Magazin. 


Alle Steuerzeichen werden in unseren 
LISTINGS durch Klartext, welcher die Ta¬ 
ste kennzeichnet, ersetzt. Eine Tabelle der 


Tastenbezeichnungen für Steuercodes 


(TRONICNORM) 


DOWN 

CURSOR UNTEN 

UP 

CURSOR HOCH 

CLR 

CLEAR SCHIRM 

INST 

EINFUEGEN 

HOME 

CURSOR IN ECKE 

DEL 

DELETE 

RIGHT 

CURSOR RECHTS 

LEFT 

CURSOR LINKS 

SPACE 

LEERZEICHEN 

Fl 

FUNKTIONSTASTE 

F3 

FUNKTIONSTASTE 

F5 

FUNKTIONSTASTE 

F7 

FUNKTIONSTASTE 

F2 

FUNKRONSTASTE 

F4 

FUNKTIONSTASTE 

F6 

FUNKTIONSTASTE 

F8 

FUNKRONSTASTE 

BLACK 

SCHWARZ 

WHITE 

WEISS 

RED | 

ROT 

CYAN 

TUERKIS 

PURPLE 

PURPUR 

GREEN 

GRUEN 

BLUE 

BLAU 

YELLOW 

GELB 

RVSON 

INVERSE EIN 

RVSOFF 

INVERSE AUS 

ORANGE 

ORANGE 

BROWN 

BRAUN 

UG.RED 

HELLROT 

DGREY 

DUNKELGRAU 

MGREY 

MITTELGRAU 

UG.GREEN 

HELLGRUEN 

UG.BLUE 

HELLBLAU 

HGREY 

HELLGRAU 

CTRL 

CONTROL 


TASTE NEBEN RECHTEM SHIFT 

SHIFT-TASTE& TASTE NEBEN RECHTEM SHIFT 

SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 

SHIFT-TASTE & TASTE GANZ RECHTS OBEN 

2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFT-TASTE & TASTE UNTEN RECHTS 

LEERTASTE (GROESSTE TASTE) 

FUNKTIONSTASTE Fl 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE FS 

FUNKTIONSTASTE F7 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F6 

FUNKTIONSTASTE FS 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 

CONTROL-TASTE & 3 

CONTROL-TASTE & 4 

CONTROL-TASTE & 5 

CONTROL-TASTE & 6 

CONTROL-TASTE & 7 

CONTROL-TASTE & 8 

CONTROL-TASTE & 9 

CONTROL-TASTE & 0 

COMMODORE-TASTE & 1 

COMMODORE-TASTE & 2 

COMMODORE-TASTE & 3 

COMMODORE-TASTE & 4 

COMMODORE-TASTE & 5 

COMMODORE-TASTE & 6 

COMMODORE-TASTE & 7 

COMMODORE-TASTE & 8 

CONTROL-TASTE ZUSAMMEN MIT DEM 

NACHFOLGENDEN ZEICHEN. 

(Z.B. CTRLA ENTSPRICHT CTRL & A) _ 


Achtung: Einige Listings enthalten das Zeichen dieses Zeichen entspricht dem Pfeil nach links (Taste 
ganz links oben) 


mlf? 


1/86 


7 

















Programme__ 

Folgende« Beispiel demonstriert üe Arbeitsweise unseres Systems: 


STANDARD AUSDRUCK: 


10 A*="TEST" : PRINT"ALLOMUSLEUTE ! » :PRINT"TRONIC VERLAS" 
20 PRINT"LM3ENDE 11 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILEN: 


10 A*="TEST":PRINT "LCLEAR RIGHTS D0NN3 R 
ED? HALLO CRIGHT2 BLUE? LEUTEN SPACE >!":PRIN 
T"TRONIC i SPACE? VERLAS" <34> 

20 PRINT "ICYAN PURPLE GREEN?ENDE“ <117> 


Wie in dem Beispiel zu erkennen ist, wird 
das Herz-Symbol durch das Wort CLEAR 
ersetzt. Dies bedeutet, Sie müssen die Ta¬ 
ste CLEAR drücken, um das Herz-Symbol 
zu erzeugen. Sollten Sie einmal nicht wis¬ 
sen, welche Taste gemeint ist hilft Ihnen 
ein Blick in unsere Tastentabelle bestimmt 
weiter. 

Um im Listing Tastenbezeichnungen von 
Grafik oder normalen Texten zu unter¬ 
scheiden, werden alle Tastenkennzeich¬ 
nungen in geschweifte Klammern gesetzt. 
Diese dürfen selbstverständlich nicht ein¬ 
gegeben werden. Auch Leerzeichen in¬ 


nerhalb geschweifter Klammern dienen 
nur zur Trennung einzelner Tastenfunktio¬ 
nen und dürfen ebenfalls nicht eingegeben 
werden. Um die Tastenfunktionen noch 
besser hervorzuheben, werden diese in 
unterstrichener Kursivschrift (Schräg¬ 
schrift) abgedruckt. 

Steht hinter einer Tastenfunktion eine 
Zahl, welche ebenfalls unterstrichen ist, 
bedeutet dies, daß die letzte Tastenfunk¬ 
tion mehrmals betätigt werden muß. Die 
in unserem Beispiel abgedruckte Funktion 
RIGHT3 bedeutet, daß die Taste RIGHT 
(Cursor rechts) 3 mal hintereinander be¬ 


tätigt werden muß. Auch einzelne oder 
mehrere Leerzeichen innerhalb von An¬ 
führungszeichen werden auf diese Art ge¬ 
kennzeichnet. Das bislang übliche Abzäh¬ 
len einzelner Zeichen entfällt somit völlig. 
Alle Zeichen außerhalb von den ge¬ 
schweiften Klammern werden normal ab¬ 
gedruckt und auch eingegeben. 

Auf den ersten Blick hört sich das sicher 
etwas kompliziert an, ist jedoch in der Pra¬ 
xis ganz einfach. Wenn man sich erst an 
die in Klartext geschriebenen Steuerzei¬ 
chen gewöhnt hat, wird man den großen 
Vorteil dieser Schreibweise erkennen. 



Checksummer C 1.0 ist ein Prüfsummen- 
Programm, was die Eingabe von Pro- 
gramm-Listings zum wahren Vergnügen 
macht. Tippfehler werden schon während 
des Eingebens der einzelnen Programm¬ 
zeilen erkannt. Dieses System zusammen 
mit dem neuen Druckverfahren gewähr¬ 
leisten, daß unsere Listings meist fehler¬ 
frei angedruckt werden. 

Arbeitsweise und Aufbau unseres Checksum- 
mers: 

Unser Checksummer besteht aus einem 
kleinen Maschinenprogramm welches als 
Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei¬ 
chern Ihn auf Kassette oder Diskette, denn 
Sie können ihn zukünftig immer wieder 
benutzen. 

Der Start erfolgt durch den Befehl „RUN“. 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „TRONIC...“. Der Check¬ 
summer ist nun aktiv und man kann ein 
beliebiges Tronic-Listing eingeben. Nach¬ 
dem eine Zeile mit RETURN abge¬ 
schlossen wird, erscheint links oben auf 
dem Schirm eine Prüfzahl. Vergleichen Sie 
diese mit der Zahl im Heft hinter der Zeile. 
Stimmt die Zahl überein, ist die Zeile rich¬ 
tig eingegeben. 


Auf diese Weise können Sie das gesam¬ 
te Listing schnell und fehlerfrei eingeben. 
Interessant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be¬ 
nutzt werden können, ohne die Check¬ 
summe zu verändern. Leerzeichen außer¬ 
halb von Anführungszeichen werden 
ignoriert, da diese auf die Ausführung der 
einzelnen Befehle keinen Einfluß haben. 
Sie können Ihr Programm auch starten, 
denn der Checksummer und Ihr Pro¬ 
gramm beeinflussen sich nicht gegensei¬ 
tig. Wollen Sie den Checksummer ab¬ 
schalten, geben Sie einfach POKE 1,55 ein. 
oder betätigen Sie die Tasten-Kombina- 
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tion RUNSTOP und RESTORE. 

Aktivieren können Sie den Checksummer 
jederzeit (auch nach RESET) mit POKE 
1,53. 


Wer den Checksuminer nicht eingeben dichte 
kenn diesen such unter der folgenden Bestell¬ 
nummer beziehen: 


Bestellnummer: 
CVIOK Kassette 
GVIOD Diskette 


10 DM 
15 DM 


O REM ***** TRONIC CHECKSUMMER ***** <116> 

1 REM VERSION C 1.0 BEI FRANK BRALL <10> 

2 REM- <14B> 

3 FOR 1=832 TO IOOBiREAD A:S=S+A <6B> 

4 POKE I,A:NEXT IsIF S<>16397 THEN PRINT 
11 FEHLERI SPACE? INtSP4C£}DATA-ZEILEN{SP4C£ 

> !t SPACEi (10-19)"iSTOP <32> 

5 SYS B32iS=O eFOR I=5B464 TQ 5B603:READ 

AiS=S+A <21 > 

6 POKE I'AcNEXT IiIF S<>18919 THEN PRINT 
“FEHLER tSP4C£HN<SP4C£>DATA-ZEILENtSP£C£ 

>!I SPACE y <29-36)»iSTOP <219> 

7 8=0«FOR I =48979 TO 49005iREAD AiS=S+A <33> 

8 POKE I,AiNEXT IiIF 802888 THEN PRINT" 

FEHLER C SPAQgy IN<S£4C£>DATA-ZEILEN<SP4C£> 

! < SP4CC> (46-47) " i STOP <23> 

9 PRINT"CSgNN2>AKTIVIEREN<SP£C£}i I SPACEy 

POKEt SPACE} 1 .53< SP4CCIS> AUSSCHALTEN «I SPA 
C£>P0KE<S£4C£>l,55"iNEW <26> 

10 DATA169,0,133,294,162,1,189,137,3,133 

,253,160,0,177,254,145,234,136 <176> 

11 DATA208,249,230,253,165,255,221,139,3 

,208,238,202,16,230,169,96,141,49 <147> 

12 DATA165,169,22B,141,50,165,169,53,133 

,1,169,141,133,254,162,3,134,255 <225> 

13 OATA160,0,177,254,240,7,32,202,241,20 

0,76,120,3,169,2,141,32,208 <140> 

14 0ATA96,160,224,192,0,147,17,32,32,35, 

35,35,35,32,84,82,79,78 <15B> 


15 DATA73,67,45,86,69,82,76,65,71,32,67, 

72,69,67,75,83,85,77 <129> 

16 DATA77,69,82,32,35,35,35,35,139,13,13 

,32,32,32,32,32,32,32 <147> 

17 DATA32,32,32,32,32,86,69,82,83,73,79, 

78,32,67,32,49,46,48 <79> 

18 DATA13,13,32,32,32,32,32,32,40,67,41, 

32,70,82,65,78,75,32 <94> 

19 OATA66,82,65,76,76,32,40,49,48,46,56, 

53,41,13,0 <12> 

29 0ATA169,0,141,107,191,141,108,191,141 

,109,191,160,2,24,177,95,200,113 <7> 

30 DATA9S,141,109,191,160,3,200,177,95,2 

40,44,201,34,208,10,173,107,191 <91> 

31 DATA73,1,141,107,191,177,95,174,107,1 

91,208,4,201,32,240,228,238,108 <128> 

32 DATA191,174,108,191,24,177,95,109,109 

,191,141,109,191,202,208,244,76,120 <244> 

33 DATA228,56,76,183,228,72,32,201,25S,1 

70,104,144,1,138,96,32,240,255 ' <101> 

34 DATA142,105,191,140,106,191,162,0,160 

,0,24,32,240,255,169,91,32,12 <89> 

35 DATA225,169,0,174,109,191,32,205,189, 

169,93,76,83,191,173,33,208,145 <239> 

36 DATA243,96,105,2,164,145,200,208,4,19 

7,161,208,247,96 <202> 

46 DATA32,12,225,32,63,171,32,63,171,172 

,106,191,174,105,191,24,32,240 <213> 

47 DATA255,76,128,164,24,0,0,5,200 <65> 


Während Ihrer langen Forschungsreise 
durch die langgestreckten bizarren Fels¬ 
kanäle Dests treffen Sie auf ein zweites, 
Ihnen jedoch vollkommen fremdes Erkun¬ 
dungsteam. Dieses fremde Erkundungs¬ 
team eröffnet auch sogleich das Feuer auf 
Sie. Dank Ihres außerordentlich bewegli¬ 
chen und nicht gerade hilflosen Raum¬ 
schiffe, entkommen Sie den ersten Schüs¬ 
sen ihres Gegners und können Ihre Vertei¬ 
digung einleiten. Bei diesem Spiel können 
Sie nur durch absolute Konzentration und 
genaues Steuern überleben. Hüten Sie 
sich also vor den gefährlichen Angriffen 
Ihres Gegners. 


I Action für zwei Personen, 

I Gesteuert wird mit Joystick in Port 1 und Port 2. 


Schauplatz des Ge¬ 
schehens ist die 
feuchte, kühle und 
nur schwach erhellte 
Grotte Cadivan des 
schwarzen Planeten 
Dest, der aufgrund 
seiner Farbe seit Mil¬ 
lionen von Jahren 
unentdeckt blieb und 
über imense Roh¬ 
stoffvorkommen ver¬ 
fügt 
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o 

REM 


<105> 

1 

REM 

* 


# 

<9B> 

2 

REM 

4 

ASTRONAUT BATTLE 

4 

<134> 

3 

REM 

# 

(C) 1985 

« 

<45> 

4 

REM 

4 

WRITTEN BY 

4 

<42> 

5 

REM 

4 

CHRISTIAN WURZER 

* 

<8B> 

6 

REM 

4 


4 

< 103> 

7 

REM 

4 

FDP COMMODORE 64 

4 

<6B> 

8 

REM 

4 


4 

< 105> 

9 

REM 


< 114> 

IO : 




<68> 


50 POKE532BO,Os P0KE532B1,O <132> 

2004 DATA120,169,51,133,1,169,0,133,95,1 
33,90,133,60,169,208,133,96,169,240 <247> 

2006 DATA133,09,169,224,133,91,32,191,16 


3,169,55,133,1,8B,96 <130> 

2010 FORT=B32TQB32+33sREADQ:PÜKET,Q:NEXT <7> 
2020 SY5B32s P0KEB50,160:SYS832:P0KE56576 
,PEEK(56576)AND252:POKE53272,8 <75> 

2030 P0KE648,192 <149> 

2031 PRINT” {. CLEAR HGREY DOHNIO SPACE13 >B 

ITTEC SPACE >WARTEN" < 53 > 

2032 PRINT" < DQHM SP4C£7> PATEN< SPACE 3 -WERD 

EN i SPACEy EINGELESEN" „ <126> 

2050 READX:IFX=—1THEN2060 <15> 

2052 CG=57344+X*B:F0RI=OT07;READZsPGKECB 
+1,Z:NEXT:G0T02050 <243> 

2060 s <7B> 

2070 DATA27,255,255,255,255,255,255,255, 

255 <2> 

2072 DATA2B,0,223,223,223,0,251,251,251 <11> 

2074 DATA29,128,128,224,240,248,248,252, 

255 <99> 

2076 DATA30, ^3,7,7,15,63, 127,255 <110> 

2078 DATA31,255,252,240,224,224,192,192, 

128 <1S0> 

2079 DATA33,255,127,15,7,7,3,3,1 <121> 

2080 DATÄ35,2,2,4,136,72,72,40,16 <20B> 

20B1 DATA129,195,219,129,157,157,157,157 

,255 <175> 

2082 DATA142,141,181,181,149,149,149,153 

,255 <223> 

2083 DATA141,153,165,1B9,157,157,157,157 

,255 <194> 

2084 DATA36,255,255,255,255,255,255,254, 

252 <135> 

2085 DATA37,239,207,207,151,55,119,119,2 

43 <21> 

2086 DATA38,252,248,211,215,175,131,15,6 

3 <159> 

2087 DATA4Q,3,3,251,249,253,241,249,253 <6> 

2088 DATA148,131,239,239,231,231,231,231 

,255 <201> 

2089 DATA146,129,189,109,129,155,157,157 

,255 <252> 

2090 DATA143,129,189,189,157,157,157,129 

,255 <21> 

2091 DATAI30,131,219,193,205,205,205,129 

,255 <147> 

2092 DATA149,189,189,189,157,157,157,129 

,255 <89> 

2100 DATA176,129,189,185,149,141,157,129 
,255 <98> 

2102 DATA177,199,247,247,231,231,231,195 
,255 <68> 

2109 DATA178,129,189,253,129,159,159,129 

,255 <29> 

2110 DATA179,193,253,253,225,249,249,129 

,255 <132> 

2111 DATA180,191,191,187,187,129,243,243 

,255 <245> 

2112 DATA181,193,223,223,193,249,1B5,129 

,255 <72> 


2113 DATA182,129,191,191,129,157,157,129 
,255 

2114 DATA183,129,189,251,247,231,231,231 
,255 

2115 DATA1B4,195,219,219,129,157,157,129 
,255 

2116 DATA185,129,189,189,129,249,249,129 
,255 

2118 DATA140,191,191,191,159,159,159,129 
,255 

2119 DATA137,239,239,239,231,231,231,231 
,255 

2120 DATA150,189,189,189,219,219,231*231 
,255 

2121 DATA133,129,191,191,135,159,159,129 
,255 

2122 DATA147,129,189,191,129,249,185, 129 
,255 

2123 DATA135,129,189,191,145,157,157,129 
,255 

2124 DATA151,157,157,157,157,189,165,153 
,255 

2127 DATA64,255,255,255,255,255,254,253, 
251 

2128 DATA65,255,255,248,199,63,255,255,2 

54 

2129 DATA66,243,192,0,236,252,252,254,25 

4 

2130 DATA67,255,255,127,15,119,121,62,62 

2131 DATA6B,247,247,239,239,239,223,223, 
223 

2132 DATA69,30,142,192,224,224,240,24B,2 
52 

- 2133 DATA70,60,28,24,24,1,1,1,3 

2134 DATA71,127,191,223,239,239,239,247, 
247 

2135 DATA72,191,191,191,127,127,127,127, 
127 

2136 DATA73,255,255,255,255,224,128,39,7 
2 

2137 DATA74,254,254,255,255,0,0,255,63 

2138 DATA75,3,3,7,7,0,0,255,24B 

2139 DATA76,247,251,251,251,123,27,139,2 
03 

2140 DATA77,127,127,127,127,127,191,191, 
191 

2141 DATA7B,86,121,126,127,127,127,191,1 
91 

2142 DATA79,1,147,150,12,248,240,224,192 

2143 DATABO,231,210,33,63,31,15,7,3 

2144 DATAB1,203,219,211,215,215,135,135, 
159 

2145 DATA82,223,223,239,247,247,251,253, 

254 

2146 DATA83,191,18B,112,64,128,128,120,1 
28 

2147 DATAB4,57,124,124,124,56,24,24,24 

2148 DATAB5,159,159,63,63,127,127,255,25 

5 

2149 DATAB6,64,224,240,248,252,254,255^2 

55 

2150 DATAB7,0,0,0,0,0,0,129,193 

2151 DATA88,12,12,12,4,116,198,130,2 

2152 DATAB9,255,127,127,127,255,127,127, 
127 

2153 DATA90,241,249,249,248,255,255,255, 

255 

2154 DATA91,2,1,1,129,255,255,255,255 

2155 DATA92,63,63,63,63,255,255,255,255 

2156 DATA—1 

2157 : 

3500 REM - MASCHINENPROGRAMM 

3501 REM — x - 


<93> 

< 106> 
<160> 
<152> 
<224> 
<39> 

< 165> 
<133> 
<I1> 
<143> 

< 166> 
<85> 
<2Ö3> 

< 106> 

< 148> 

<14> 

< 1B7> 
< 88 > 

< 176> 

<34> 

<104> 

<99> 

<239> 

<99> 

< 114> 

< 102 > 

< 178> 
<163> 

<207> 

<117> 

<208> 

<29> 

< 151 > 

<206> 

<62> 

<97> 

< 112 > 

<163> 

<152> 

<228> 

<22B> 

<175> 

<213> 

<205> 
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3520 DATA162,0,142,192,2,142,193,2,142,1 

96,2,142,197,2 

3522 DATA206,252,207,174,252,207,224,0,2 

OB,102,162,30,142,252,207 

3524 DATA173,0,220,41,239 

3600 DATA141,254,207,162,0,142,253,207,3 

2,0,200,173,0,220,201,112,176,74 

3602;DATA173,21,208,41,2,201,2,240,65,16 

2,0,142,194,2,142,195,2 

3603 DATA173,16,208,41,253,141,16,208,41 
,1,201,1 

3604 DATA20B,B,173,16,208,9,2,141,16,208 
,1/4,0,2u8,142,2,208,174,1,208 

3606 DATAl42,3,208,162,0,32,172,200,174, 

0,220,224,109,240,11,32,102,201 

3608 DATA173,21,20B,9,2,141,21,208 

3611 DATA206,251,207,174.251,207,224,0,2 
00,104,162,30,142,251,207 

3612 DATA173,1,220,41,111,141,254,207,16 
2,4,142,253,207,162,2,32,0,200 

3613 DATA173,1 ,£20 

3614 PATA201,240,176,74,173,21,208,41,8, 
201,8,240,65,162,0,142,198,2,142,199,2 

3615 DATA173,16,208,41,247,141,16,208,41 
,4,201,4 

3616 DATA208,8,173,16,208,9,8,141,16,208 
,174,4,208,142,6,208,174,5,20B 

36ia DATA142,7,200,162,2,32,172,200,174, 

1,220,224,237,240,11,32,102,201 
3620 DATAl73,21,208,9,8,141,21,208 

3622 t 

3623 DATA173,30,208,141,249,207,41,2,201 
,2,240,12 

3624 DATA173,31,208,141,255,207,41,2,201 
,2,208,8,173,21,208,41,253,141,21,208- 

3625 DATA173,249,207,41,8,201,8,240,9 

3626 DATA173,255,207,41,8,201,B,208,B,17 

3.21.208.41.247.141.21.208 

3632 DATA174,0,20B,142,8,208,174,4,208,1 
42,10,20B,174,1,208,232,232 

3634 DATA142,9,20B,174,5,208,232,232,142 
,11,208 

3635 : 

3637 DATA174,0,20B,224,0,200,8,173,16,20 
B,9,16,141,16,208,174,0,208,224,255 
3639 DATA208,8,173,16,208,41,239,141,16, 
208,174,4,208,224,0,208,8,173,16,208 
3641 DATA9,32,141,16,208,174,4,208,224,2 
55,208,8,173,16,20B,4 t,223,141,16,208 
3645 : 

3647 DATA206,250,207,174,250,207,224,0.2 
08,43,162,99,142,250,207 

3649 DATAI 74,252,195,224,54,208,17,238,2 
53,195,238,252,195,162,2,142,43,208,142 
3651 DATA44,2ÜB,24,144,14,206,253,195,20 
6,252,195,162,1,142,43,208,142,44,2ÖB 

3671 DATA173,255,207,41,1,201,1,240,9 

3672 DATA173,249,207,41,1,201,1,2GB,72,1 
62,40,142,O,20B,142,8,208 

3673 DATA162,165,142,1,208,232,232,142,9 
,208,173,16,208,41,238,141,16,208 

3674 DAT Al 73,21,208,41,247,141,21,208,32 
,73,201,162,1,142,33,208 

3678 DATA32,126,201,162,8,142,33,208,32, 
126,201,162,0,142,33,208,174,41,195 

3679 DATA224,176,208,1,96,174,30,208,206 
,41,195 

3680 DATA173,255,207,41,4,201,4,240,9 
36B1 DATA173,249,207,41,4,201,4,208,72,1 
62,45,142,4,208,142,10,208,162,165 

3682 DATAI42,5,208,232,232,142,11,208,17 

3.16.208.9.36.141.16.208 

3683 DATA173,2i,20B,41,253,141,21,20B,32 


<84> 

<57> 

< 169 > 

< 119> 
<210> 

< 168> 

<254> 

< 112> 

< 160> 

< 1 42> 

<230> 

<233> 

<2> 

<201 > 

<200> 

<42> 

<6> 

<110> 

< 151 > 

<245> 

<«90 > 

< 19 > 

< 199> 

<21 > 
<123> 

< 10B> 
<204> 

<130> 

< 133 > 

< 11 b > 

< 12 > 

< 236 > 

<B7> 

< 197 > 
<236> 

< 131 > 

<33> 

<246> 

<216>, 

<44> 

<24> 


Programme 


,73,201,162,1,142,33,208,32,126,201 
3685 DATA162,8,142,33,208,32,126,201,162 
,0,142,33,208,174,68,195,224,176 
3689 DATA208,1,96,174,30,208,206,68,195 

3705 DATA174,13,208,224,131,208,10,162,1 
,142,205,2,162,255,142,204,2 

3706 DATA174,13,208,224,160,208,10,162,2 

55.142.205.2.162.1.142.204.2 

4203 DATA162,15,169,128,141,61,3,141,60, 

3.222.208.2.208.44.189.176.2.157.208.2 
4205 DATA189,192,2,240,33,16,12,189,0,20 
8,8,222,0,208,40,240,7,208,19,254,0,208 
4207 DATA20B,14,173,60,3,208,9,173,61,3, 

77,16,208,141,16,208,173,60,3,208 

4209 DATA3,78,61,3,73,128,141,60,3,202,1 
6,191,76,24,196 

4210 DATA-1 


1J • ui //, jiZJH f / , 1V2fllu,208113,172, 

253,207,169,255,153,193,2,169,40 

4216 DATA157,248,195,172,254,207,192,109 
,200,8,172,253,207,169,1,153,193,2 

4217 DATA172,254,2Ö7,192,103,208,13,172, 
253,207,169,1,153,192,2,169,44 

4218 DATA157,248,195,172,254,207,192,107 
,208,13,172,253,207,169,255,153,192,2 

4219 DATA169,43,157,240,195,172,254,207, 

192.102.208.18.172.253.207.169.1 

4220 DATA153,192,2,169,255,153,193,2,169 
,41,157,240,195,172,254,207,192,106 

4221 DATA2ÖÖ,16,172,253,207,169,255,153, 
192,2,153,193,2,169,42,157,240,195 

4223 DATA172,254,207,192,105,200,18,172, 

253.207.169.255.153.192.2.169.1 

4224 DATA153,193,2,169,46,157,240,195,17 
2,254,207,192,101,20B,16,172,253,207 

4225 DATAl69,1,153,192,2,153,193,2,169,4 
5,157,248,195,96 

4229 DATA100,248,195,192,40,208,13,172,2 
53,207,169,255,153,195,2,169,47 

4230 DATAI57,249,195,180,240,195,192,44, 

200.13.172.253.207.169.1.153.194.2 

4231 DATA169,50,157,249,195,180,240,195, 

192.43.208.13.172.253.207.169.255 

4232 DATA153,194,2,169,51,157,249,195,18 
0,248,195,192,41,208,18,172,253\207 
4234 DATA169,1,153,194,2,169,255,153,195 
,2,169,40,157,249,195,108,248,195 

4236 DATA192,42,208,16,172,253,207,169,2 
55,153,194,2,153,195,2,169,49 

4237 DATA157,249,195,180,248,195,192,46, 

200.10.172.253.207.169.255.153.194.2 

4238 DATA169,1,153,195,2,169,53,157,249, 
195,180,249,195,192,45,200,16 

4239 DATA172,253,207,169,1,153,194,2,153 
,195,2,169,52,157,249,195,96 

4246 DATAI62,0,142,4,212,162,13,142,5,21 

2.142.6.212.162.13.142.1.212.162.255 
4248 DATA142,0,212,162,129,142,4,212,96 
4252 DATA162,0,142,11,212,162,11,142,12, 

212,142,13,212,162,23,142,8,212,162,129 

4254 DATA!42,II,212,96 

4259 DATA162,25,160,255,192,0,240,3,136, 
208,249,202,224,0,200,242,96,-1 

4260 : 

5000 REM —— SPRITES 
5010 : 

5014 DATA , 8 , , , Q, , ,0 f , , 0 , ? 62 

221.128.1.190.192.1.190.192.. 221.12Q 
5016 DATA,62, .mtnrnmiHMm, 

DATA, T ,i,,,, t ,l, , , 2 , , , 4 , , , 6, . 62 

221.128.1.190.192.1.190.192.. 221.120 
5022 DATA, 62, iMfnmmiminm 
50^6 DATA,,, , ,,,f,,64,,,32,,,16, t , 0 , , ,62 


<125> 

<176> 

<240> 

<3B> 

< 166> 

<1S1> 

< 144 > 

<215> 

<4B> 

<242> 

<195> 

<252> 

<179> 

<230> 

<1S2> 

<49> 

<91 > 

<175> 

<35> 

<4B> 

<75> 

< 162 
<232> 
< 108> 
<13B> 
<243> 
<134> 
<9> 
<254> 

<204> 

< 179> 

<13B> 

<107> 

<237> 

<23B> 

< 6 > 

<223> 

< 114 > 

<252> 

< 116 > 

< 2 > 
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ii 












Programme_ 

,,,221,128,1,190,192,1,190,192,,221,128 <227> 

5028 DATA,62,,,,,,,,,,,,,,,,,,,,,,,,, <B> 

5032 DATA, , , »62, , ,221, 

128.1.190.192.15.190.192.. 221.128 <134> 
5034 DATA,62,<14> 
5038 DATA,»62,,,221, 

128.1.190.192.1.190.248.. 221.12B <203> 

5040 DATA,62,,,,,,,,,,,,,,»»,»»»»»»»» <20>. 

5044 DATA,,,,,,,,,,»»»,»,»»»»» »62,,,221, 

128.1.190.192.1.190.192.. 221.128 <96> 

5046 DATA,62,64,,,32,,,16,,,,,,,,,,,,,,, 

,,, <161> 

5050 DATA,,,,,,,,,,,,,,,,,,,,,,62,,,221, 

128 T 1,190,192,1,190,192,,221,128,1,62, <146> 
5052 DATA2,,,4,,,,,,,,,,,,,,,,,,,, <1B2> 

5056 DATA,12,,,12,,,,,,,,,,,,,,,,,,,,,,, 

,,,,,,,,»,,»»»»»»*»»»»»»»»»»»»»»»»» <5S> 

5062 DATA,,96,,,96,,,,,,,,,,,,,,,,,,,,,, 
,,,»••,,,,,,,,»»»»>»»»>»»»»»»»>»»»» <247> 

5068 DATA3,,,3,,,,,,,,,,,,,,,,,,,,,,,,, , 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, <26> 

5074 DATA,,3, 

,,3,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, <1B2> 

5079 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,96,, 
,96,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,» <134> 

5083 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
,,,,,,,,,,,,,,,,»,»»,»3,,,3,,,,,, <15> 

50B7 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 
,,,,,,,,»,» < »»» » »< t,96,,,96,,,,,,,, <222> 

5090 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

,,,,»,20,,,46,,,50,,,46,,*38,,,28,,,28 <74> 

5092 DATA,,8,,,8, <154> 

5096 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 

»»»»»»28,»,50,,,46,,,50,,,58,,,20,,,28 <3> 

5097 DATA,,8,,,8, <159> 

5100 DATA,,3,,,7,,,14,,,20,,,40,,,80,,,2 

24.. 1.192.,«3,128, ,5, , , 10, , ,^0, , ,56 <91 ^ 

5102 DATA, , 112,, ,224,, 1,64, ,2,128, ,5,,, 1 

4 .. . 28 ... 24 ., ^®9 ^ 

5104 : <61> 

6000 REM-EINLESEN DER DATEN <54> 

6002 : <195> 

6004 FORT=OT09999:READQ:IFQ=—1THEN6008 < 54 > 
6006 POKE50200+T,NEXT <136> 

6008 FDRT=OT09999:READQ:IFQ=—1THEN6012 <198 > 

6010 PQKE51200+T,QsNEXT <143> 

6012 : ' <205> 

6020 FORT=OT062:READQ:P0KE51712+T,QsNEXT <164> 
6022 F0RT=OTO62: READQ:PDKE51776+T,QsNEXT <74> 
6024 FÜRT=0T062sREADQ:P0KE51B40+T,Q:NEXT <197> 
6026 F0RT=0T062s READQ:P0KE51904+T,Q:NEXT <21B> 
6028 FORT=OTD62sREADQ:P0KE51968+T,QsNEXT <12B> 
6030 FORT=OTQ62:READQ:POKE52032+T,QsNEXT <115> 
6032 FORT=OT062:READQ:POKE52096+T,QsNEXT <25> 
6034 FQRT=0T062sREADQSP0KE52160+T,QsNEXT <148> 
6036 FORT=OT062:READQ:POKE52224+T,QsNEXT <169> 
6038 FORT=0T062sREADQ:P0KE522BB+T,Q:NEXT < 79 > 
6040 F0RT=0T062:READQ:P0KE52352+T,QsNEXT <202> 
6042 F0RT=0T062:READQ:POKE52416+T,QsNEXT <223> 
6044 F0RT=0T062:READQ:POKE524BO+T,QsNEXT <235> 
6046 FORT=OT062:READQ:POKE52544+T,Q:NEXT <0> 
6048 FORT=OT062:READQ:P0KE526QB+T,QsNEXT <21> 
6050 FORT=OT062:READQ:P0KE52672+T,QsNEXT <33> 
6052 FORT=0T062:READQ:PQKE52736+T,Q:NEXT <54> 
6054 : <247> 

7000 REM : -VARIABLEN,DATEN <151> 

7002 : <175> 

7004 V=5324B:P0KE53265,PEEK(53265> AND239 <161> 
7010 F0RT=6BBT0719:POKET.OsNEXT <115> 

7014 F0RT=39TO45:PQKEV+T,15:NEXT <B> 

7022 POKEV,40:POKEV+1,165:POKE6BB,1:POKE 

6B9,1:P0KE5016B,41:POKEV+39,8 <220> 

7024 P0KE690,10:P0KE691,IO <255> 


7026 POKEV+4,45:POKEV+5,165:POKE692,1:P0 
KE693,1:P0KE50170,46 <95> 

702B P0KE694,10:PQKE695,IO <67> 

7029 POKEV+12,143:POKEV+13,150:POKE716,1 

iP0KE717,255:P0KE700,30:P0KE701,30 <97> 

7030 P0KE50174,56 <243> 

7031 i <204> 

7040 POKEV+16,36:POKEV+21,1+4+16+32+64 <134> 

7044 POKEV+27,1+4+16+32+64 <189> 

7045 P0KEV+30,0:P0KEV+31,O <215> 

7046 : <219> 

7050 P0KE50172,54iP0KE50173,54 <47> 

8012 SI=54272:FORT=0T024:POKESI+T,O:NEXT <234> 
8014 POKESI+24,31iPOKESI+21,3:P0KESI+22, 
3:P0KESI+23,241 <60> 

8016 i <169> 

9000 REM-GRAFIK <201 > 

9010 c <143> 

9020 PRINT" ECLEAR BÄ0#N>CCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCC" <159> 

9022 PRINT"Ct/P3CCCCCCCCCCCC C S PACE23} !CC 

E" <177> 

9024 PRINT" lUPi C I SPACE7 } !C E SPACE25 3 CCC 
'■ <116> 

9026 PRINT" CUP} C C SPACE9} C SPACE2S }''l EC" <101> 

9028 PRINT" CUP} C CSPACE36} ! CC" <251 > 

9030 PRINT" CUP} C i SPACC24y ^ C SPACEli} !C" <184> 

9032 PRINT" CUP} C C SPACE21} ''}'* C SPACE13} 1" <206> 

9034 PRINT" CUP} C -C SP4CC19 LIG.GREEN} #C BRO 
HWJ^C C C ESPACE14y C" <32> 

9036. PRINT" iUPy C3 I SPACE18J !CCC I SPACElOi 
y 'l E L IG. GREEHy *i BROI4H >''l " <85> 

9038 PRINT" EUPy C C 3 l SPACE17y '' ( SPACEi ! 3 CS 
PACEio y icccc" <i> 

9040 PRINT" CUPy C C C 3 {. SPACE ! 3 t SPACE13y '' 

C C C C" <60> 

9042 PRINT" iupy C C C I SPACESy * CC 3 C SPACEßy ! 

I SPACE14 3!CCC" <123> 

9044 PRINT" tun CC t SP4CF5> ^-4l -3 { SPACE23 

><CC" <61> 

9046 PRINT"<tfP>C < SP4CE6 >C~C~—I CCC i SPAC 

E2&> !C" <93> 

9048 PRINT" OJPy C t SP4CC63 ^C K ^LCC I SPACE 

22.y C“ <241 > 

9050 PRINT" CUPy C 3 { SPACES > C C\yT~TC C ( SPACE 

163^3C SP4CE53 C" <23> 

9052 PRINT" iUPy C C C SPACE4y ^i C-9C SP4CC3 I r C 

C 3 i LlG.GREEH yüK BROUH SPACE13} ''C C3 I SPACE3 

J^C" <241> 

9054 PRINT" lUPy CC ( HGREYy \\\I BROUHy CCCCCX 

04 ICCCCCCCCCCCCCCCCCCECC iHGREYy\\\CBROMH_ 

}C C" <3B> 

9056 PRINT"CÜP3CCCCCCECCCC4“HS CCCCCCCCCCC 
CCCCCCCCCCCCCCE" <17> 

9058 PRINT"C(/P3CCCCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCE" <17> 

9060 PRINT" <ypy CCC C «ySOW> LIVE5C RKSOFF }C t 
RVSON y^t RVSOFFy C C C4%{ WVSOW >STRONAUT I RVSO 
ff> C C C C C C C C /M/SQW3 LIVESC WKSOFF3 C C RKSOW3 5C 
RKSOFF 3CCC" <126> 

9062 PRINT"CI/P3CCCCCCCCCCCCC«iCCC RKSOW3 BA 
TTLE { RVSOFFy CCCCCCCCCCCCCCCCCC" <181> 

9064 PRINT" iUPy CCCCCCCCCCCCCCCCCCCCCCCCE 
CCCCCCCCCCCCCCC" <23> 

9066 : <199> 

9068 POKE49152+809,181:POKE49152+836,181 <103> 

9070 POKE53265,PEEK(53265)OR16 <15B> 

9100 SYS50200 <31> 

9150 POKE214,18:POKE211,15:SYS58640 <22B> 

9152 PRINT "I RVSOH BROUN} 'N' ISPACE}=ISPAC. 
E3NEWCSP4CE3GAME" <206> 

9164 GETA4:IFA*<>"N"THEN9164 <2> 

9200 G0T07000 <74> 




12 


1/91 


































































































_Werkstatt 

In einem Programm oder während seiner Bearbeitung kommt es oft vor, daß man etwas (An¬ 
weisung, Zeichnung usw.) auf dem Bildschirm lassen möchte, wobei der Rest mehrmals ge¬ 
löscht werden muß. Da bei dem C-64 diese Funktion nicht implementiert Ist, wie es bei man¬ 
chen Computern der Fall /st soll das Programm „WINDOWS“ dieses umgehen, damit wir unse¬ 
re unlöschbaren „FENSTER“ entwerfen können. 



Nachdem man das Programm fehlerfrei eingegeben und gestartet hat, liegt es in Spei¬ 
cher ab Adr.$C000 bis $C0C2. 

Um die Wirkung dieser Funktion zu sehen, wollen wir einen kleinen Test machen und 
zwar: 

1) Bildschirm löschen (Shift+CLR/HOME) 

2) SYS49257:SYS49152 + Return 

3) Positionieren des Cursors an eine beliebige Stelle des Bildschirms 

4) SHIFT+SPACE drücken 

5) Schreiben: DIESES IST EIN WINDOW! 

6) SHIFT+SPACE drücken 

7) SHIFT+RETURN drücken 

8) SYS49312:POKE720,1 + Return 

9) SHIFT+CLR/HOME 


Nun stellen wir fest, daß der Satz „Dieses 
ist ein Window“ seine Farbe geändert hat 
und trotz des Löschens des Bildschirms 
noch angezeigt wird. Geben wir P0- 
KE720.0 ein, wird die Schriftfarbe wieder 
geändert in Schwarz(Farb-Code 0 ist be¬ 
kanntlich Schwarz). 


Die Speicherzelle dez.720, enthält also 
den aktuellen Code für die Farbe. 

Jetzt bewegen wir den Cursor an eine an: 
dere Stelle des Bildschirms und schreiben 
einen neuen Satz, nachdem man, vor und 
nach, mit den Tasten Shift+Space be¬ 
grenzt hat. Mit SYS49312 wird dieser 


auch ein Window. Es. ist möglich, „Fen¬ 
ster“ in Senkrecht-Richtung zu verbrei¬ 
tern, indem man mehrere Zeilen unterein¬ 
ander schreibt Vorausgesetzt daß am 
Anfang und Ende die Tasten Shift+Space 
gedrückt worden sind. 

Mit SYS49257 kann man den ganzen 
Bildschirm samt Windows löschen und 
mit SYS 49312 wieder neu entwerfen. 
Um aus dem Programm auszusteigen, 
muß RUN/STOP+RESTORE eingegeben 
werden. Der Inhalt der Windows bleibt 
trotz drücken der RUN/STOP+RESTOFlE- 
Taste erhalten. Dadurch kann man jeder¬ 
zeit diese Windows mit SYS49152 abru- 
fen. 

Eine mögliche Anwendung wäre, Win¬ 
dows in ein Programm einzubauen mitfol- 
gendem Format: 

10 PRINTCHR$(160);”WflND01lir ;CHR$(160) 


Funktionsweise des Programmes „WINDOWS“ (Assembler Listingl 


Das Programm ist in drei Teile aufgeglie¬ 
dert die im Folgenden erklärt werden sol¬ 
len: 

Als erstes sind die IRQ-Vektoren zu verän¬ 
dern, damit sie auf die Adresse $C011 zei¬ 
gen, wo eigentlich unsere Routine „Progr. 
Start“ anfängt. 

ROUTINE: PR0GR.S1ART 

Dieser Teil des Programmes schreibt - 
nachdem es geprüft hat ob der Windows- 


Inhalt am Anf. bzw. Ende mit Shift+Space 
gekennzeichnet ist - den Inhalt aus dem 
Speicherbereich $C400-$C7FF in den 
Original-Bildschirmspeicher ab $0400. 
Dieser Vorgang wird durch die veränder¬ 
ten IRQ-Vektoren jede 1/60 sec. wieder¬ 
holt. 

ROUTINE: NEU 

Durch SYS 49312 ($C0A0) wird der Bild¬ 
schirmspeicher ab Adr. $0400-$07FF, 


nach Adr. $C400-$C7FF kopiert. 

ROUTINE: AUS 

Mit SYS49257 ($C069) wird der Spei¬ 
cherbereich von $C400-$C7FF, der uns 
als „Hilfs-Bildschirmspeicher“ dient, auf 
Null gesetzt Anschließend erfolgt das Zu¬ 
rückschreiben des Original-Inhaltes 
($EA31) in die Speicherzellen $0314 bzw. 
$0315. 


C64 LISTING MIT CHECKSUMMEN <C VI.0> 

50 REM #########*######### 

55 REM # # 

60 REM # WINDOWS # 

65 REM # BY # 

70 REM # S.VALENTINO # 

75 REM # 6300 GIESSEN # 

60 REM # # 


<84> 

< 117> 

< 130> 
<239> 
<250> 
<47> 
<142> 


85 REM *################## <11 9 > 

lOO PRINT" C CLEAR 1 ": FORI=0T07:PRINT:NEXTs 
PRINTTAB(IO)"**£S£4C£1W{S£4C£} IISP4CONC 

<246> 

105 PRINT:PRINTTAB(12)"<C)£SP4C£>S.VALEN 
TINO" ' <1!7> 

HO PRINT:PRINT:PRINTTAB(8 )''SYS CSPACEl 49 
152 t SPACE * = C SPACE S PROG. START'■ < 55> 
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Werkstatt 


115 PRINTs PRINTTAB (8) 11 SYS< SPACEy 49257 £SP 
ACE y = t SPAC£y \4INDQ\4< SPACEy f*\JS" 

120 PRINTsPRINTTAB(B) n SYS< SPACEy 49512 ISP 
ACEy =t SPACEy WlNDQW£ SPACEy toEü" 

125 F0RT=49152T049359STEP16 
130 FORI=OTO15 s READA s S=S+As FOKET+1,A s NEX 
T:I=+l:READB:IFB<>STHEN140 
135 S=Os1=0: NEXT:END 

140 PRINT 11 FEHLERC SP.4C E} INI S/MCE 3-DATAZEIL 
EtSPACE? NR. s ,, PEEK(63)+PEEK(64)*256:ST0F 

1000 DATA120,169,017,141,020,003,169,192 
,141,021,003,088,169,000,133,002,1388 

1001 DATA096,165,002,041,007,170,189,144 
,192,133,251,133,253,189,154,192,2311 

1002 DATA133,252,189,149,192,, 133,254,160 
,000,177,251,170,201,096,208,009,2574 

1003 DATA165,002,073,128,133,002,076,063 
,192,165,002,041,120,240,018,138,1566 



Dieses Basic-Unterprogramm wurde für 
anspruchsvolle Anwender geschrieben. 
Damit ist es möglich, an jeder beliebigen 
Stelle und in jeder gewünschten Größe 
Windows zu entwerfen. 

Außerdem wird der Text innerhalb des 
Windows so geschrieben, als wenn man 
zusätzlich noch einen kleinen Bildschirm 
zur Verfügung hätte. Diese UPzu benutzen 
ist sehr einfach: man muß - nachdem das 
Maschinenprogramm im Speicher durch 


UP Windows-Demo 

den Basic-Loader geladen worden ist - 
sechs Variablen initialisieren und an¬ 
schließend die Subroutine mit GOSUB 
10000 abrufen. 

Folgende Variablen muß man vorher defi¬ 
nieren: 

X = Zeile Anfangs-Position des:Windows 
(Werte 2 bis 38) 

Y = Spalte Anfangs-Position des Win¬ 
dows (Werte 1 bis 25) 

ZX = Zeilenlänge des Windows 


(Werte 1 bis 39-X) 

ZY = Spaltenlänge des Windows 
(Werte 1 bis 24-Y) 

EL = Anzahl der Elemente des String Vek¬ 
tor ZL$(KK) (Werte 1 bis 9). Falls mehr ge¬ 
braucht werden soll, muß das Feld dimen¬ 
sioniert werden. 

ZL$(KK) = String, wo sich der Text befin¬ 
det (max. 255 Zeichen). 

In dem Demo-Programm sind die Zeilen 
von 60 bis 75, die dieses UP initialisieren. 


C64 LISTING MIT CHECKSUMMEN (C VI.O) 

50 REM UNTERPROGR. INITIALISIEREN <201> 

55 PRINT" i CLEARy " <B5> 

60 X—lOs Y=5s ZX=19s ZY=9:EL=3 <127> 

65 ZL*(1) t SPACE y w 

t sPACEy iz sPACE yNt sPACE ypc sPACE yaz sPACE yw 
I SP4CE 3- S< SP4C£~ > ====================== 11 < 116> 

70 ZL* (2) = " I SP>1C£4> DI SP>ICC >EI SP>1CF> MI SPA 
CE> üI SPACE±y =======================< SPAC 

E6_y B Y { SPACEjy ========= " < 1 BO > 

75 ZL*(3 ) = ”============== < SPACE2y S-VALEN 

TINO C SPACE2 y ============================ 

=====" <24> 

100 GOSUBlOOOOsEND <73> 

200 REM UNTERPROGRAMM 'WINDOWS-DEMO' <156> 

1OOOO YY*=""s FOR1 = 1T025s YY*=YY*+CHR*(17) 
sNEXT <39> 

10005 FI=16Ö:ER=0 <192> 

10010 FOREE=lTOBÖs FF*=FF*+CHR*(32)+CHR*( 

32)sNEXT <216> 

10015 X=X—1:Y=Y—1s ZX=ZX—1:ZY=ZY—1 <209> 

10020 IFX+ZX >39QRX<10RZX<OTHENER=l:RETUR 
N <147> 

10025 IFY+ZY >240RY< OORZY< ÖTHENER=1s RETUR 
N <125> 

10030 IFEL >90REL<1THENER=1s RETURN < 3 > 

10035 SYS49257 <3B> 

10040 FOREE=lTOEL:CK=CK+LEN(ZL*(EE))sNEX 
T <61 > 

10045 FOREE=EL+1T09:ZL*(EE)=FF*sNEXT:EL= 

9 <131> 

10050 AA=X s BB=Y sPRINT" I HOHE y M LEFT*(YY*,B 


B);SPC(AA-i);CHR*(FI> <207> 

10055 FOREE=1TOEL < 32> 

10060 FORKK=lTOLEN(ZL*(EE)) <97> 

10065 PRINT"";LEFT*(Y Y*,BB);SPC < AA 
);MID*(ZL*(EE),KK,1);CHR*(145) <192> 

10070 AA=AA+1 <242> 

10075 IFAA >X+ZXTHENGOSUB 10095 <101> 

10080 IFBB>Y+ZYTHEN 10090 <181> 

10085 NEXT:NEXT <8> 

10090 SYS49312:SYS49152s RETURN <98> 

10095 PRINT" t HOMEy "LEFT*(YY*,BB);SPC(AA) 

;CHR*(FI) <25> 

10100 BB=BB+1sAA=XsIFBB< =Y+ZYTHENPRINT"< 

HOME y " LEFT*(YY*,BB);SPC(AA-1)CHR*(FI) <BB> 

10110 RETURN <51> 
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Assembler-Usting zur „Window“-Technik mit dem Commodore 64 


Werkstatt 
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Bitte echten Sie auf den Rest des 
Assembler-Listings auf der Seite 16! 

















tips & tricks 


, C0B5 

cs 

IMY 

, C0B6 

DO F9 

BNE C0B1 

•, C0ET8 

E6 FC 

INC FC 

COBA 

E6 FE¬ 

INC FE 

, COBC 

ES 

T.NX 

, COBD 

EO 04 

CPX #04 

:i COBF 

DO FO 

BNE C0B1 

r coc :i. 

k; 

cl i: 

COC2 

60 

RTS 


Tips & Tricks für den 
Commodore 64 


Grammophon 

Mit diesem Programm, kann man sich über den Computer Kas¬ 
setten anhören. Man startet die Routine, legt eine Kassette ein 


und drückt die Play-Taste. Das Programm kann nur durch Stop/ 
Restore abgebrochen werden. Die Tonqualität ist zwar nicht be¬ 
rauschend, jedoch ist Maschinensprache nicht schneller als 
Schall. Am besten sind gesprochene Wörter zu erkennen. Bei 
dem meisten Musik-Kassetten ist das Schlagzeug zu stark auf¬ 
genommen und ist deshalb sehr laut zu hören. 


1000 FORK-16384T016440:READGiP=P+B:POKEK 
,G:NEXT <1> 

1010 IFP< >6570THENPRINT“ERROR {SPACE) IN£S 
P4CO DATA": END <76> 

1020 PRINT"Y0LK§£4C£>CAN{S£4C£>USE<S£4C£ 
>THE<S£4C£>GRAMN0PH0N,IF<§fMC£>Y0lKS£4C£ 

>START <32> 

1030 PRINT“THECS£4C£yR0UTINE<SP4C£>WITH« 

SPACE > 'SYS16384’{ SP4CE> THEN{SP4CPPUT <99> 

1040 PRINT' , A{SMC£>MUSIC{§S^CE>CASSETTE< 

SPACE ) IN<SP£C£>TAPEISP4C£>AND<SMC£>PRES 
B<SP4C£>PLAY <90> 

1050 DATA169.52,141,20,3,169,0,141,32,20 
B,141,33,206,32,68,229,173,13,220,41,16 <90> 

1052 DATA240,249,169,13,141,24,212,162,0 
,232,224,10,208,251,173,32,208,73,1,141 <122> 

1054 DATA32,208,141,33,208,169,0,141,24, 
212,141,13,220,76,16,64 <138> 


POKE’s (Or C-64 

POKE XXXXX 

BESCHREIBUNG 

POKE 775,200 

Listschutz 

EIN 

POKE 775,167 

Listschutz 

AUS 

POKE 808,237 

Run/Stop Restore 

EIN 

POKE 808,225 

Run/Stop Restore 

AUS 

POKE 650,128 

Dauerfunktion für alle Tasten 

EIN 

POKE 650,64 

Dauerfunktion für alle Tasten 

AUS 

POKE 657,128 

Shift-Modus 

EIN 

POKE 657,0 

Shift-Modus 

AUS 

POKE 19,40 

Return anders 

EIN 

POKE 19,0 

Return anders 

AUS 

POKE 56325,5 

Cursor schneller 


POKE 56325,255 

Cursor langsamer 


POKE 204,0 

GET-Befehl Cursor 

EIN 

POKE 207,0:POKE 204,1 

GET-Befehl Cursor 

AUS 

POKE 819,246 

Save-Schutz 

EIN 

POKE 819,245 

Save-Schutz 

AUS 

POKE 808,49 

Run/Stop 

EIN 

POKE 808,237 

Run/Stop 

AUS 

POKE 19,64 

INPUT ohne ’?’ (1) 

EIN 

POKE 19,0 

INPUT ohne ’?’ (1) 

AUS 

POKE 792,255:P0KE 793,252 

Run/Stop Restore=>Reset 

EIN 

POKE 792,71 :POKE 793,254 

Run/Stop Restore=>Reset 

AUS 


Mutti/BW 

Nachdem die Routine gestartet wurde, 
wandelt sie ein farbiges Bild in ein einfar¬ 
biges Bild um. Bei Bildern, wo die Punkte 
zu eng aneinander liegen, eignet sich die 
Routine nicht weil nachher alles zu un¬ 
scharf ist Man sollte nur mehrfarbige Bil¬ 
der zum Umwandeln nehmen, da dabei 
das Bild gröber wird. 

Das Listing finden Sie auf der 
gegenüberliegenden Seite! 


Hirescopy 

Wenn das Programm mit ,SYS4096‘ ge¬ 
startet wurde, druckt der Drucker das Bit- 
mapping-Bild aus. Er benötigt dafür nur 
40 Zeichen pro Reihe, ist jedoch nur für 
einfarbige 7-Bit Printer, z. B. für den Sei- 
kosha GP-100VC, geeignet Nach dem 
Drucken bleibt das Bild noch auf dem 
Bildschirm, der Druckvorgang ist aber 
schon beendet 

Das Listing finden Sie auf der 
gegenübertiegenden Seite! 
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Listing zu den Tips & Tricks 

"Multi/BW“ 

1000 F0RK=4Ü96T04460: INPUT"HNEMONIC-C SP4C 
£>"j MN*!L*=RIßHT*(MN*,1)sH*=LEF T$ (MN*7l7 

10 10 IFL*> , 'e"ANDL*<"e , 'THENL=ASC(L$) -55 

1011 IFH$>"S"ANDH*< "G"THENH=A5C (H*> -53 

1012 IFL*>"/"flNDL*<"s"THENL=ASC(L*)- 4 e 

1013 IFH#>"/"ANDH*<"t"THENH=ASC(H*>-4B 

1020 FOKEK,H*16+L!NEX TiPGKE198,0s WAIT19B 
,1sSYS4411 


Listing zu den Tips & Tricks 

"Hirescop y“ 


tips& tricks 


<215> 

<21S> 

<2B> 

<2S3> 

< 66 > 


»030 PRINT" (DOMttiP ICTURECSP4CE) TO<SP/(CE> 
8W<SP4C£}WITHtSP4CE}'SYS400O0* 

DATA169,59,141,17,208,169,24,141,24 
M1 * 32 - 2 °8t 169,32, 133,251 
‘S2 ™™ l&9 «<>. 133,250, 170, 16B, 169,0,133 

J«-?’ 177 ’ 250 ’ 41 ’ 192 ’ 240 ’ 6 » 169 * 192 »101 

?!o ™ TA252 ’^33*252,177,250,41,48,240,6 
jitT’ 48 ’ 101 ’ 252 *133,252,177,250,41,12 
^^ 44 ® A "^" A24 ®*6,169,12,lOl,252,133,252,17 
• Aäq 0 ™ 1 ’ 3 » 240 « 6 *169,3,101 ,252, 133,252 
194 ® DATA1 65,252, 1 45,250,200,208,197,232 
? 230 ’ 251 ,224,32,200,190,169,4,433,251 

irtQ 0 -.=f TAI62,0,16O,O,1&9 > l^t 145,250,200, 
208,251,232,230,2S1,224,4,208,244,96 

lOO^FOR^OOOO^Ol 13t READGt P=P+Gi POKEK 

1010 IFP< >17124THENPRINT"ERROR { SPACE !IN{ <&4> 

SPACEy DATA",END - .... 

1020 PRINT"ALL{SP4CEJCDRRECT.«SP4CEJVQUY 
g£4CC>CAN<SP4CF>FORMt SP4C£ > AT SP4CE 1MI II TT 
CULQIJR <74> 


F0 01 
69 39 
FR £0 
0? F0 
FR R9 
£0 E9 
04 R2 


85 FR 
02 C6 
03 C6 
3F 85 
60 R2 
3B R0 


20 C0 FF R2 04 20 C9 FF 

R9 00 85 FR R9 20 85 FB 

28 85 06 R9 08 20 02 FF 

07 00 Fl R9 01 85 FE R9 

06 FE E8 R5 FE C9 80 00 

89 00 20 02 FF C6 FC 00 

69 08 85 FR 90 02 E6 FB R0 06 

28 85 03 -4C-D9 10 R5 FR 29 07 

90 02 E6 FB 60 R5 FR 29 07 F0 

FB 60 E6 FR 60 E6 FB 18 R5 FR 

FR 60 C6 FB 38 R5 FR E9 39 85 

FB R9 00 R3 91 Ffl E6 FR 00 02 

08 R0 01 20 BR FF R9 09 R2 5C 

11 R9 03 4C 08 FF 48 49 52 45 


20 18 11 
R9 07 85 
R9 80 85 
80 85 FF 
ER R5 FF 
R8 R9 04 
20 09 10 
C9 07 F0 
03 C6 FR 
69 39 85 
FR BO 02 
E6 FB R5 
R0 11 20 
53 43 4F 


R9 3B 80 
02 R9 28 
FO R2 @0 
R2 00 BO 
20 02 FF 
4C C3 FF 
88 00 FR 
03 E6 FR 
60 C6 FB 
FR 90 @2 
C6 FB 60 
FB C9 40 
BO FF R9 
50 59 


11 00 
85 03 
R0 00 
40 03 
46 FD 
C6 02 
R9 07 
60 E6 
38 R5 
E6 FB 
20 44 
00 EF 
@0 85 


09 18 
R9 00 
Bl Ffl 
25 FD 
R5 FD 
F0 03 


80 18 
20 02 
90 40 
F0 @6 
C9 01 
4C Cö 
C6 03 
R5 Ffl 

39 85 
Ffl 29 

40 85 
C9 80 
10 85 


Was gibts Heues auf dem Software-Markt? 


NEW RELEASE: SCHNEIDER C0MP1I FR 


Einen Compiler für den Schneider CPC 464 hat die Firma 
Günster Computertechnik auf den Markt gebracht. Der Com¬ 
piler, lieferbar in Disketten- und Kassettenversion, besitzt ei¬ 
nen umfangreichen Befehlssatz und ist in der Lage, Fließ¬ 
kommaarithmetik zu verarbeiten. 

Bei Anwendung des Compilers erzielt der Anwender eine 
sehr große Geschwindigkeitssteigerung, die im Bereich von 
10-fach bis 50-fach möglich ist. So wird, um den Bildschirm¬ 
speicher zu löschen, eine Programmausführungszeit von 
1,85 Sekunden benötigt, wohingegen das normale Schnei- 
der-BASIC bei identischem Programm 55,16 Sekunden läuft. 
Der Compiler wird auf Kassette für 79,— DM und für Disket¬ 
ten für 89,— DM geliefert mit ausführlicher Anleitung und 
Handbuch. 


Nihero Informationen: 

SOFTWARE TEAM Joachim Sflnotm; 
Mßhlenstr. 12,5431 Boden 


Soft-Team-Berlin 


Software und Zubehör für 

EH3BBE3 EB3 

Über 2000 Programme immer auf Lager. 
Ständig die neuesten Programme aus England und 
den USA. 

Gratiskatalog anfordem: 

Anton Peter & Partner, Kamminerstraße 9 
1000 Berlin 10, Telefon 4S3 2711 
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„New Games" 

für den Cdmmodore 16 

Endlich ist es soweit/ Bei den 
Softwarefirmen findet auch 
der C16/116 immer mehr Be¬ 
rücksichtigung. 

So gibt es schon einige Pro¬ 
gramme im Fachhandel. Wir 
stellen Ihnen hier einige 
Neuerscheinungen für dieses 
Computersystem vor. 

ARENA 3000 

ARENA 3000 versetzt den Spieler/die Spie¬ 
lerin in die Welt der Cyborgs. Zahlreiche 
Levels gilt es zu durchlaufen. Jedes Level 
- eine Arena - birgt die Gefahren der au¬ 
ßerirdischen Angreifer, die nach Ihrem Le- 
> Machten. Sie können sich in jede be- 
/ ’e Richtung bewegen und die Feinde 
mir ihrem Laser-Strahl vernichten. Dieses 
Spiel zeichnet sich dürch seine enorme 
Schnelligkeit und den Variantenreichtum 
aus. (Beim Test dieses Programmes hatte 
unser Chef-Programmierer einen High 
Score von 1.385.455 Punkten!). Sie sehen 
also, dieses Spiel hat scheinbar „keine 
Grenzen“! 


Herstellen MICRODEAL 
Preis: ca 20 Mark 



CUTHBERT IN SPACE 

CUTHBERT M THE SPACE ist ein rasantes 
Space Shuttle-Arcade-Spiel, bei dem es 
darauf ankommt das Raumschiff mit 
Treibstoff zu füllen, ohne aber von feindli¬ 
chen Angreifern „liquidiert“ zu werden. Zu 
diesem „Zweck“ sindSie mit den modern¬ 
sten Waffen-Systemen ausgestattet die 
es Ihnen erlauben, jeden Außerirdischen 
zu vernichten. Ein excellenter Spaß und 
viel Spielvergnügen ist Ihnen gewiß. 
Hersteller MICRODEAL 
Preis: ca 28 Mark 


CUTHBERT ENTERS 
THE TOMBS 0F DQOM 

CUTHBERT ENTERS THE TOMBS 0F D00M ist 

ein typisches „Pyramiden-Such-Spiel“, 
bei dem unser Held allerlei wertvolle 
Kleinode aus dem „Reich der Toten" (aus 
der Grabstätte eines Pharao) sammeln 
muß. Dabei begegnen ihm „finstere Ge- 


Die eindrucksvollen Möglichkeiten des 
CPC werden einem so richtig bewußt 
wenn man einmal das Datenverwaltungs¬ 
programm MASTERFILE von Campeil 
Software benutzt Man kann MASTERFILE 
ohne Übertreibung außergewöhnlich nen¬ 
nen, denn es enthält etliche Möglichkei¬ 
ten, die man normalerweise bei vergleich¬ 
baren Programmen auf Homecomputern 
nicht finden wird. 

Die Art der Information welche mit diesem 
Programm betrieben werden kann ist 
praktisch endlos. Natürlich speichert es 
die Adressen und Telefonnummern von 
Freunden, Verwandten, Geschäftspartner, 
Ärzten, Händler oder was immer Sie wol¬ 
len. Und die gespeicherten Daten sind 
leicht zu handhaben und auf vielfältige 



stalten“, die ihn bei seiner Grabräuberei 
ganz schön zu schaffen machen. Es ist ein 
Spiel mit viel Witz, einer hervorragenden 
Graphik und „spannenden Momenten“! 
Hersteller: MICRODEAL, 41, Truro Road, 
St Austeil, Cornwall PL25 5JE, England. 
Preis: ca. 28 Mark. 


Weise darstellbar. 

Ein File zu erstellen ist nicht so einfach, ist 
es doch auch die Grundlage für spätere 
„Kinder“-Files. Aber die vielen Seiten lan¬ 
ge Programmbeschreibung geht sehr ins 
Detail und führt den Neuling bei seinen er¬ 
sten Schritten sicher durch das Pro¬ 
gramm. Sind die Daten erst einmal einge¬ 
geben, können sie leicht verändert und 
bearbeitet werden. Verschiedene Mög¬ 
lichkeiten, wie die Sortierung in alphabeti¬ 
scher oder numerischer, in aufsteigender 
oder absteigender Reihenfolge sind vor¬ 
handen. 

In der Suchroutine können verschiedene 
Kriterien miteinander verbunden werden 
und in den Möglichkeiten sind auch nu- 


Software-Test 


MASTERFILE für CPC 


18 




1/86 

































report 


merische Vergleiche wie 'gleich’ (=) oder 
'größer als’ (>), sowie direkte Nachweise 
wie Vorhanden’ oder 'nicht vorhanden’ 
eingeschlossen. Dadurch können bei der 
Suche ganz komplexe Sachverhalte er¬ 
fragt werden. 

Das erstaunliche an diesem Programm 
sind die verwandtschaftlichen Verhältnis¬ 
se von Files untereinander, eine Möglich¬ 
keit, die zum erstenmal auf einem Home¬ 
computer verwirklicht wurde. 
Angenommen ein File wurde errichtet und 
enthält die Korrespondenz des Geschäfts¬ 
führers einer politischen Partei. Dabei sind 
etliche Briefe von Privatleuten, Schreiben 
von verschiedenen Organisationen und 
andere Dinge, die man mit der Post erhal¬ 
ten oder auch versandt hat. 

Jedesmal den vollen Namen einer Organi¬ 
sation, die Anschrift und alle sonstigen 
wichtigen Grunddaten, z.B. Konto, Telefon, 


Telex usw., einzugeben, würde eine um¬ 
fangreiche aber unnötige Arbeit sein. 
MASTERFILE erlaubt es, ein „Eltem“-File 
zu erstellen, daß alle zentralen Informatio¬ 
nen enthält, während alle anderen Einga¬ 
ben, die mit dazu gehören, einem „Kin- 
der“-File zugeordnet werden. 

Das Kinder-File liest automatisch die 
Grunddaten vom Elternfile und stellt sie 
zur Verfügung, somit werden jedesmal al¬ 
le passenden Daten wieder zusammenge¬ 
fügt. 

In einigen professionellen Datenverwal¬ 
tungsprogrammen - der dazu nötige 
Computer kostet ein Vielfaches dessen, 
was Sie für Ihren CPC ausgegeben haben 
- ist die Idee schon auf „Großeltern“- und 
„Enker-File erweitert worden. Diese wer¬ 
den hier noch nicht benutzt, obwohl das 
Thema damit noch nicht erledigt ist, denn 
es gibt schließlich auch „kinderlose El- 


tern“-Files und „Waisen“-Files. Etwas 
kompliziert für den Anfang? 

Das beste Datenverwaltungsprogramm, 
das ich kenne, liest direkt von der Diskette, 
so daß die Größe eines Files nur begrenzt 
wird von der Diskettenkapazität. Masterfi¬ 
le hat immerhin den respektablen Umfang 
von 32 k zur Verfügung und die meisten 
Anwendungen scheitern nicht an der 
Größe des Memory. 

Dieses Programm ist ein Zeichen dafür, 
daß nun vorzügliche Software mit profes¬ 
sionellen Eigenschaften auf den Markt 
kommt und es nur noch nötig ist, daß der 
Anwender richtig damit umgehen kann. 
Wieviele Geschäftsführer von Firmen, Or¬ 
ganisationen, Vereinen usw. kennen die 
Möglichkeiten des Marktes und wissen 
diese richtig, d.h. preiswert zu nutzen. 
Hersteller: 

Cempell Software; ca. 98,— DM im Fachhandel. 


Unser Softwarefeuerwerk - zündende TITEL mit explosiven PREISEN 

Für C-04 

auf Tape /Disk 

Für C-64 

auf Tape Disk 

Winter Games 

35,00/45,00 

Wizard & Princes 

/ 49,00 

Summer Games II 

35,00/45,00 

Fahrenheit 451 

/56,00 

Elite (engl.) 

45,00/55,00 

Rendevouz w. Rama 

/56,00 

Kennedy Approach 

45,00/49,00 

Amazone 

/ 56,00 

Imp. Mission 

30,00/45,00 

Space Pilot 

15,00/ 

Shadowfire 

35,00/59,00 

Blue Thunder 

15,00/ 

Frank Brunos Box. 

28,00/45,00 

Beach Head II 

i/ 45,00 

Dough Boy 

39,00/49,00 

Donald Ducks PL 

/ 49,00 

Rocky Horror Show 

28,00/38,00 



Mystic Mansion 

39,00/50,00 

Für C-16 

aut IV*,« 

Whyrlinurd 

39,00/ 



Nodes of Yesod 

39,00/ 

Las Vegas 

36,00 

Nick Faldos Golf 

33,00/ 

Air Combat Emulator 

52,00 

Ghetto Blaster 

37,00/ 

Chess (Grandmaster) 

35,00 

Speed King 

29,00/ 

Daley Thomps. St.Ev. 

29,00 

Rocket Ball 

26,00/ 



Fourth Protocol 

34,00/ 

10 Disketten im Kunststoffalbum 

Cricket 

39,00/ 

zum SUPERPREIS 

39,00 

Versand per NN oder Iter.-Sclieck zzgl. 3,- DM. Fordern Sie unsere Preisliste mit 0,80 DM in Briefmarken an. 


Auslandsaufträge nur gegen Vorausscheck. 


M. M. SOFTWAREVERSAND, POSTFACH 801202 • 

8000 MÜNCHEN 80 P Tel. 089 - 47 23 68 
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^Programme 



für Commodore 16 


Hueycobra 


Sie müssen als Hubschrauberpilot einen 
Gefangenen aus dem unterirdischen Höh¬ 
lensystem großer Bergketten retten. Das 
ist natürlich keine einfache Sache, da die 
Höhle sehr eng ist und mit Barrikaden ge¬ 
schützt wird. Zudem machen auch noch 
Monster die Bergungsarbeiten hinderlich. 


Das Spiel erstreckt sich über drei Bilder, 
die automatisch weiterblättem. Ab Bild 2 
kommt für jeden zählenden Treffer ein 
Monster hinzu. Jeder Treffer ergibt 10 
Punkte, und bei 1000 Punkten erhalten Sie 
einen Bonus-Hubschrauber. 

Am Ende der Höhle nehmen Sie dann den 
Gefangenen auf und fliegen mit ihm zu¬ 
rück zur Plattform, die mit „Ziel“ markiert 


ist. Steuern können Sie den Hubschrauber 
mit dem Joystick. 

Hinweise zum JUrtlppen: 

Um einen korrekten Spielablauf zu ge¬ 
währleisten, wurden einige Leerzeichen 
verwendet, die der Bildfolge dienen. 
Rechte Bildseite bei Höhlenende: 

„C=“ + „K“ Taste 
Unke Seite bei Höhlenanfang: 

„SHIFT“ + „Space“ Taste 
Über der Plattform: 

„SHIFT“+ ”-“ Taste 


10 REM (C)RALPH HORNEBER 
100- COLORO,2,5iC0L0R4,2,3iVOLB 
110 V-652B0 ' 

140 PQKEV+1B,PEEK(V+1B)AND251 


130 P0KEV+19,PEEK(V+19)AND30R48 
155 P0KE740 v 561CLR 

160 FQRT«B32T0B49iREADAlPOKET, AlNEXTiSY8B32 
180 FORT-12800TQ13071iREADAiPOKET,AiNEXT 


1440 DATA162.0,1B9,0,208,157,0,48«1B9,0,209,157,0,49,202,208,241,96 


145Q DATA255,6,31,47,79,127,16,32 
1452 DATA240,0,193,195,254,252,128,128 
1454 DATA6,6,31,47,79,127,16,32 
1456 DATAO,0,193,195,254,252,128,12B 
1458 DATA15,0,131,195,127,95,1,1 
1460 DATA255,96,248,244,242,254,16,B 
1462 DATA 0,0,131,195,127,95,1,1 
1464 DATA96,96,248,244,242,254,16,B 
1482 DATA98,82,74,70,9B,B2,74,70 
1484 DATAO,0,0,8,8,77,239,255 
I486 DATA255,239,77,8,8,0,0,0 
14BB DATA255-,255,239,109,77,68,64,0 
1490 DATAO,64,68,77,109,239,255,253 
1492 DATA7,127,15,3,31,63,7,31 
1 k^' p «248' 128,240,252,224,192,252,224 

1496 DA,127,13,31,3,63,31 ,3 
1500 DATA2'52,128,240,224,252,192,224,252 
1502 DATA254,240,168,204,200,12B,64,0 
1504 DATA127,1^,21,51,19,1,2,0 
1506 DATAO,64,128,200,204,16B,240,254 
1508 DATAO,2,1,19,51,21,15,127 


1510 DATA24,60,126,153,255,129,129,231 

1512 DATA129,129,255,195,126,60,60,66 

1514 DATAO,60,60,195,195,102,60,0 

1516 DATA60,0,129,153,24,0,195,24 

1518 DATAl02,0,B,129,0,0,0,129 

1520 DATAO,0,0,0,0,0,0,0 

1522 DATA255,255,255,255,255,255,255,253 

1524 DATA24, 153,90,60,24,24,36,66 

1526 DATA0,0,0,0,0,0,0,0 

1528 DATAO,0,0,0,0,60,0,0 

1530 DATAO,16,16,16,16,16,16,0 

1532 DATAO,0,0,0,0,0,0,0 

1534 DATAO,0,0,0,0,0,0,0 

1900 ZZ-0iA-68iBI-1iHU«3 

1910 B0T05000 

1998 REM SPIELROUTINE 

2000 X-JOY<l)iQ-Q+l 

2010 IFU*0ANDBI< >1THENG0BUB3B00 

2020 IFX >9THENX*X—128i608UB2300 

2030 IFX-0THEN2120 

2035 Q-0 


2040 0NX60T02050,2100,2060,2100,2070,2100,2080,2100 

2050 ZZ—40i D 40t C-411D—40i E—39i B0T02100 

2060 ZZ-1■A«68iB—1iC-liD-2iE“2iBDTD2100 

2070 ZZ«40iB—40iC—39iD-40iE-41iB0T021Ö0 

2080 ZZ—11A«64i B-2i C 2iD—11E—11B0T02100 

2100 IFPEEK <Z+D)< >320RPEEK(Z+E)< >32THEN4000iELSEZ-Z+ZZ 

2105 P0KEZ+B,32iP0KEZ+C,32 

2110 P0KEZ—1024,12tPOKEZ—1023,12 

2120 POKEZ,AlP0KEZ+1,A+1 
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2130 SOUNDS ,200, 2 

2140 IFA"64THENA"66iS0T02190 

2150 IFA“60THENA"7OiQ0T02190 

2160 IFA-66THENA-64iB0T02190 

2170 XFA-70THENA-6BlB0T02190 

2190 XFQ-20ANDZZ<>0THENiQ-0iG0T02100 

2195 IFZZ«0THENÜ»0 

2200 S0T02000 

229S REM RAKETE 

2300 SOUNDS,100 V B 


_Programme. 

2310 IFA-640RA-66THENP0KEZ,64iP0KEZ+l,65 

2320 IFA-680RA-70THENP0KEZ,6BlPOKEZ+1,69 

2330 IFA<68ANDZZ—40THEN2400 

2340 IFA< 6BANDZZ"—1THEN2435 

2350 IFA< 6BANDZZ-40THEN2460 

2360 IFA>67ANDZZ—40THEN2490 

2370 IFA>67ANDZZ*1THEN2520 

2380 XFA>67ANDZZ»40THEN2550 

2400 FORS"Z—40T0Z—800BTEP—40 


Kennen Sie 
schon die 
Tronic-Top-Hit 
Programm¬ 
pakete 
für den C-16? 

Wenn Sie mehr darüber 
wissen möchten, sehen 
Sie schnell auf der Seite 
32 nach. 

Hier finden Sie tolle An¬ 
gebote für weitere Com¬ 
putersysteme. 


2405 IFPEEK <B>< >32THENP«B+40iB0BUB3500»RETURN 
2410 POKEB,95 i IFS-Z-40THENP0KES,32iELSEP0KES+40,32 
2415 NEXTlP0KES+40,32 i RETURN 
2435 F0RB-Z-1T0Z-40BTEP-1 

2440 X FPEEK < 8 > < >32THENP-B+11B0BUB35001RETURN 
2445 POKEB,94*IFB-Z-lTHENPDKEB,32iELBEPOKES+1,32 
2450 NEXTl PC3KE8+1,32i RETURN 
2460 FORB“Z+40TQZ+B008TEP40 

2465 XFPEEK(SK>32THENP-S-40 1 G0SUB3500 1 RETURN 
2470 POKEB,95iIFB-Z+40THENP0KEB,32 i ELSEP0KES-40,32 
2475 NEXTlP0KEB-40,32 i RETURN 
24B0 REM 

2490 FORB« Z—39T0Z-BOOSTEP-40 

2495 IFPEEK(BK >32THENP«B+401B0BUB35001RETURN 
2500 POKEB,95iIFB-Z-39THENP0KEB,32iELBEP0KES+40,32 
2510 NEXTlP0KES+40,32 i RETURN 
2520 F0RB-Z+2TQZ+3B 

2525 I FPEEK (BK >32THENP-B-11B0BUB35001 RETURN 
2530 POKEB,94iIFS-Z+2THENP0KEB,32iELBEPOKES-1,32 
2535 NEXTlPOKEB-1,32»RETURN 
2550 F0RB“Z+41T0Z+800BTEP+40 

2555 IFPEEK(BK >32THENP”S-40 s G0BUB3500 1 RETURN 
2560 POKEB,95iIFS-Z+41THENP0KES,32iELSEP0KES-40,32 
2565 NEXTiPOKEB—40,32iRETURN 

3500 ^FPEEK^B^»720RPEEK(8)-850RPEEK(S> «86THEN3510«ELBEPOKEP,32iRETURN 

3510 IFPEEK(P) «94DRPEEK (P)«95THENP0KEP,32 

3540 B0UND3,800,22 

3550 FOR T-B7T0B9 

3560 POKE B,TlF0RI*lT020iNEXTl,T 

3S80 PU«PU+1ÖIPA«PA+10iIFPA>100OTHENPA*OiHU“HU+11BOBUB13000 

3590 CHAR, 13,1, " " i PRINTUBING"L3####" | PU 

3600 U-OiRETURN 

379B REM MONSTER 

3B00 MQ-INT(RND(1)*200+(Z-120>) 

3B10 IFPEEK (MO) O32THEN3B00 

3B20 POKEMO-1024,50iPOKEMO,INT(RND(1)*2+85) 

3850 U»liRETURN 

3,98 ^pp E EK^Z+D)“920RPEEK<Z+E>"92THENRI"1 IPOKE39B2.32ISOUND1,800,20.S0T02000 
IFPEEK(Z+D)™96ANDRI*0THENBI*BI-i iBOTOSOOO 
IFPEEK ( Z+D ) -97ANDRI-iTHENBI-BI + 1 iB0T05000 
IFPEEK(Z+D)«=96ANDRI-1THENBI=BI-1 »B0T05000 

IFPEEK(Z+D)«97ANDRI«0THENBI=BI+1 «G0T05000 

I FPEEK (Z+E) «93ANDRI “ 1THEN5160 

z=z+zz 


4000 

4010 

4020 

4030 

4040 

4050 

4060 
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4070 PQKEZ+B 1 321POKEZ+C,32 
4100 F0RT-B7TQB9*SOUNDS,T*10,12 
4110 POKEZ,T*POKEZ+1, T 
4120 FOR I=lT030iNEXTI,T 
4130 POKEZ,32*POKEZ+1,32 
4135 F0RT»1T0500*NEXT 
4140 HU«HU-l*BI-liRI=0lG0T05000 
499B REM BILD8TEUERUNB 
5000 ZFHU-OTHEN10200 

5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5300 
5310 
10000 
10200 
10210 
10230 
10240 
10250 
10260 
10270 
102B0 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10600 
10610 
10620 
10622 
10625 
10630 
10640 
10650 
10660 
10670 
10700 
10710 
10720 


5005 ZZ-0 

5030 0NBIG0T05040,5050,5060 
5040 608UB100001G0SUB53001G0T02000 
5050 G0SUB1lOOOiG08UB5300t G0T02000 
5060 608UB12000iG08UB5300I60T02000 
5160 IFA-66THENA-64 
5170 IFA-70THENA-6B 


5160 POKEZ , 32* POKEZ+1, 32 


POKEZ-1024,12*POKEZ—1023,12* POKEZ+ZZ,AiPOKEZ+ZZ+1,A+1 
CHAR,3,3, "(üläSUPER !!!«*' 

PRINT*PRINT» PRINT" E3DU HAST ES" 

PRINT*PRINT" GESCHÄFT !!" 

PRINT*PRINT" DEINE PUNKTE" 

PRINT* PRINT" Uai"|PU 
GETA4 * I FAX > " " THEN5250 
RUN1900 

SOUND1,881,20* S0UND2,854,20 
RETURN 
REM BILD1 
8CNCLR 
GOBUB13000 

PRINT"****************\.| j | M( | 


PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"♦ 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT"* 
PRINT "4- 


r-H44+-H- 


M II I I I I I I I i-i-" 

444-' ‘ 


— J 4 4 4 1 ! 
4 '4 


44 


I 


Jl 

I" 
I " 
■ " 


I L4 
r~4* 
,49 

IIIII\449 

412X1 ELfii 
—4 4 ) I N I* 
-44444* 


\4/ 

r4i 

I -44* I _4* 

IBX« \4/ I HX* 4 I 
I T41 HX8I 49 | | -," 

r4/ -4/ 4 f4" 

* I 41 T449 | 49 | 44" 


I 44*(S,« -444L444L4--H-" 
\4* I 44 1 I N I 1 44" 

■/" \41 • l -_4~' -4" 

41 I \4" 

—49-, £SX« I I 4" 


-44441 


■449 

i r44" 

-444/ 

LI 411 L 

L444. L 

L4L-, H/B _4" 

-441 

-444 

4411 1 i J 

• ("4" 

r4* 

4*-' 

'44 ^ 4 

\4" 

\4/ 

i 

-• I 

I 44" 

F41 

1 L4 

1 

T44" 

! 49-,! 

444* 

UM 

4L-, L-, L-, 1 44" 


4441-1 II I I I II I I I I 19-, 


..>1 4444444444" 

PRINT"444-444 I I I I I I I'1-44 I I I I ) I l-l II ! I I I I I H44 l44fl"«P0KE4071 ,91 

IF HU-OTHEN10700 
A-6B 

Z-3954 s HA“HU 
IFRI-1THENHA-HA-1 
IFHA>4THENHA-4 
FOR I-1T0HA 

POKEZ—1024,12*POKEZ-l023,12*POKEZ,AcPOKEZ+1,A+1 
Z“Z+3» NEXT* Z»Z—3 

IFRI»lTHENZ-33BBsA=64tPOKEZ-1024,12*P0KEZ-1023,12*POKEZ,A*POKEZ+1,A+: 
RETURN 

CHAR,5,10, "IIBAME OVER»" 

GETA4*IFA*<>" "THEN10710 
RUN1900 
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Programme 


12410 POKEZ—1024'12iPOKEZ-1023f12iP0KEZ f AiPOKEZ+1,A+1 

12500 B08UB13100I RETURN 

13000 CHAR t 12 t 0'läHUEYCOBRAS B~*m" 

13010 CHAR,5,1,"□sPUNKTEÜüfeJ"iPRINTUSING"####"$PU; 

13020 PR Z NT 11 IMUKläHEL 1 K0PTER9UI.1 11 1 * PR INTUS ING"##" ; HUi C0L0R1,1 

13050 RETURN 

13100 F0RT-1T015 

13120 MO“INT(RNO(1)#799+3192) 

13130 ZFPEEK(MO)< >32THEN13120 

13140 PQKEM0-1024,SOiPOKEMO,INT(RND(1)#2+05) 

13150 NEXTiRETURN 


Hardcopy routine 


fSr den CI6/116 + MPS801 
(oder kompatibeQ s. Listing 3 


Die Grafikeigenschaften des CI 6/116 sind 
hervorstechend und werden soweit man 
sich mit dem Arbeiten auf dem Bildschirm 
zufrieden gibt voll vom Basic des C16/116 
unterstützt. Doch als Besitzer eines Druk- 
kers möchte man natürlich seine grafi¬ 
schen Kunstwerke, mathematischen 
Funktionsgraphen oder was sich sonst auf 
dem Bildschirm befindet gerne aufs Pa¬ 
pier bannen. Hier bietet sich zunächst die 
Programmierung in Basic an, da eine 
Hardcopyroutine in Basic recht einfach 
und kurz zu bewerkstelligen ist; doch hat 
solch eine Routine einen entscheidenden 
Nachteil: die Geschwindigkeit!!! 

Zeiten von einer halben Stunde sind dabei 
keine Seltenheit. 

Es bleibt also keine andere Wahl, als auf 
Maschinensprache zurückzugreifen. Sie 
finden hier eine 216 Bytes lange Hardco¬ 
py-Routine für den CI6/116 in Verbindung 
mit einem MPS801 oder einem kompati¬ 
blen Drucker (GP100VC, etc.). Mit Hilfe 
dieser Routine ist der Grafikbildschirm in 
weniger als 3 Minuten vollständig ausge¬ 
druckt. 

Leider wurde kein idealer Speicherraum 
für die Routine gefunden (die Benutzung 
des Kassettenpuffers hätte die Dataset- 
tenanwender von der Nutzung des Pro¬ 


gramms ausgeschlossen; die 192 Bytes 
hinter dem Grafikspeicher werden beim 
Löschen des Grafikbildschirms jedesmal 
mit Nullen aufgefüllt), so daß nichts ande¬ 
res übrigbleibt, als weitere 200 Bytes vom 
ohnehin knappen Speicherraum desC16/ 
116 abzuschneiden. 

Gehen Sie beim Abtippen folgenderma¬ 
ßen vor: 

- Geben Sie das Listing ein, speichern 
Sie es ab und starten dann mit RUN. 
Datasettenanwender nehmen vorher 
folgende Änderungen vor: 

In der Zeile 260 istdie 08 durch 01 und 
in Zeile 320 die 8 durch 1 zu ersetzen. 

- Haben Sie beim Abtippen einen Fehler 
gemacht, meldet das Programm Ihnen 
dieses, ansonsten wird die Hardcopy¬ 
routine unter dem Namen ‘hardcopy- 
code’ als reines Maschinenprogramm 
abgespeichert. Dazu printet das Pro¬ 
gramm alle nötigen Anweisungen auf 
den Bildschirm; Sie brauchen nur 
noch, wenn der Cursor blinkt, auf die 
RETURN-Taste drücken. Dies geschieht 
viermal. 

Für eigene Anwendungen müssen Sie die 
Routine nun absolut nachladen und den 
benötigten Speicherraum schützen. Dies 
erledigen die beiden folgenden Zeilen die 


Sie an den ANFANG Ihres Programms stel¬ 
len müssen: 

0 IFMUHENAfI :L0AD“HARDC0PY.C0DE“,8,1 
1 GRAPHIC2:GRAPHIC0,1 :P0KE51,32:P0KE52, 
23:P0KE55,32:P0KE56,23:CLR 

Es versteht sich, daß Ihr Programm und 
die Hardcopyroutine sich auf derselben 
Diskette befinden müssen bzw y daß auf 
Band die Hardcopyroutine direkt hihter Ih¬ 
rem Programm sein muß. Gestartet wird die 
Routine dann mit SYS5928! 
Änderungshinweis: 

Bei manchen Hires-Bildern empfiehlt es 
sich, diese revers auszudrucken, da die 
Darstellung auf dem Bildschirm nicht der 
auf Papier entspricht. Dies ist zum Beispiel 
bei dem Hires-Bild auf der Commodore- 
Demo-Diskette der Fall (s. Demoaus¬ 
druck). Diese Möglichkeit ist optimal in 
der Routine eingebaut. Wünschen Sie also 
eine Hardcopyroutine, die das Bild vor 
dem Ausdruck invertiert, müssen Sie an 
dem Listing vor dem Starten folgende Än¬ 
derungen vornehmen: 

In Zeile 115 sind das 11. und 12. Datum 
(..., 234,234,...) zu ändern in 73,127. 
Entsprechend muß die Prüfsummenab¬ 
frage in Zeile 190 geändert werden: der 
Zahlenwert von 23100 muß geändert 
werden in 22832. 


10 REM HARDCOPY-ROUTINE FUER DEN COMMODORE 16/116 IN VERBINDUNG MIT EINEM 
20 REM MPS-801 ODER KAMPATIBELN DRÜCKER 
30 REM WRITTEN 1985 BY WALDEMAR RAAZ 
40 GRAPHIC0,1 
50 REM MA8CHINENCODE 
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-Programme 



170 BU-OiREBTORE 

100 F0RI-5928T06143»READAlPOKEI,AlBU-BU+A»NEXT 
190 IFSU 023100 THENPRINT" FEHLER IN DATAB !!!"*STOP 
200 PRINT" OK! MASCHINENPROGRAMM EINGELESEN!" 

210 PRINTiPRINT" JETZT MUBS EB NUR NOCH ABGESPEICHERT" 

220 PRINT"WERDEN. DRUECKEN SIE HIERZU VIERMAL DIE" 

230 PR I NT " liFETURNH-TASTE 1 " 

240 PRINTiPRINT"MONITQR" 

230 PRINT 1 PRINT 1 PRINT 1 PRINT»PRINT m 

260 PRINT"S"CHR4<34)"HARDCOPY.CODE"CHR4(34) ,08,1728,1800 


270 PRINTiPRINT»PRINT"X" 

280 PR I NT 1 PR I NT " BQT0300 11 
290 PRINT"amS"iEND 
300 BRAPHICO, 1 

310 PRINT"DAB PROGRAMM KANN JEDERZEIT MIT 

320 PRINT"[Sl-OAD"CHR* (34) "HARDCOPY. CODE"CHR*(34) " ,8,18" 

330 PR INT“NACHGELADEN UND DANN MIT" 

340 -PRINT"läSYS 592BP" 

350 PR INT"GESTARTET WERDEN !" 


Helmut und die Zeitmaschine 


Durch eine Zeitverschiebung ist Helmut 
ins Jahr 1000 v. Chr. zurückversetzt wor¬ 
den. Er muß nun durch das Einsammeln 
von Zeitschwertern (5 Stück pro Epoche) 
versuchen, wieder in die Gegenwart zu 
kommen. Insgesamt gibt es 8 Epochen 
und mitC 128 kann man in die Zukunft ge¬ 
langen. Aber natürlich ist das Ganze nicht 
so einfach. Ein Diener des myhenischen 
Kaisers ist Helmut ständig auf den Fersen 
und versucht ihn zu erreichen. 

Starten können Sie das Spiel mit der 
SPACE-Taste und steuern mit dem Joy¬ 
stick. Die Puste von Helmut nimmt durch 
die Aufnahme eines Schwertes zu. Zur 
Aufnahme eines Schwertes müssen Sie 
auf dem Schwert stehen und den Feuer¬ 
knopf drücken. Auf diese Weise können 
auch Steine zerschlagen werden. Der Die¬ 
ner des Kaisers kann nicht bekämpft wer¬ 
den. 



Mensch Helmut wie kommen wir hier bloß wieder weg? 
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Programme 


10 REM************************* 
20 REM* * 
30 REM* HELMUT * 
40 REM* BY RALF ADLING * 
50 REM* LINGENER STR.6 * 
60 REM* 4576 BERGE * 
70 REM* * 
BO REM************************* 


90 V0L8sC0L0R4,1s COLGRO,1:C0L0R1,2 
100 P0KE56,47:CLR 
110 V=65280 

120 P0KEV+18,PEEK(V+18)AND251 
130 POKEV+19,PEEK( V+19)AND30R48 


140 REST0RE860: FDRT=*B32T0B49: READA: POKET , A : PR=PR+A : NEXTT 
150 SYSB32 

160 FORT«12800T013000sREADAsIFA>-1THENP0KET,AsNEXT 
170 B=3301s Z=1s X=1000:T=0 
1B0 G0TD550:K=3321s B=3301 

190 G0SUB480s C0L0R1,2s E=500sCHAR1,1,1,“PUSTEs"sPRINTEs K=3321sB=3301 
200 REM 

210 REM MAINROUTINE 
220 REM 

230 CHAR1,30,1,"LEVELs"sPRINTZsCHAR1,16,1,Z*(Z) 

240 IFPEEK<B+40)»32ANDPEEK(B+40)<4096THENC=40sSOUND1,1000-B/4,5 


250 CHAR1 ,6, 1, "s "s PRINTUSING"####"jE 
260 IFT>4THEN1170 
270 POKEK,32 

280 IFK-B>40THENL=-40s G0T0330 

290 IFK-B< —40THENL=40s G0T0330 

300 IFK >BTHENL=-.5 s G0T0330 

310 IFK<BTHENL=.5 

320 IFB=K+LTHEN1110 

330 IFPEEK < K+L)>4000THEN360 

340 IFPEEK(K+L)=320R65THENK=K+L s G0T0360 

350 K=K-L 


360 POKEK,71 

370 IFJOY <1)=3THENC=C+1 

380 IFJOY(1)=7THENC=C—1 

390 IFJOY(1)=12BTHEN60SUB490sE=E—25 

400 IFJOY(1)=1THENC=-80:E=E-5 

410 POKEB,32 

420 B=B+CsIFPEEK(B)«32THENP0KEB,64sG0T0440 

430 B=B—Cs POKEB,64 

440 C=Os E=E—1sIFE<OTHENl140 

450 REM 

460 G0T0240 


470 SOUND1,BOO,10s S0UND2,770,4s SOUND1,854,5s POKEB,32 s GQSUB480s E=E+40O-Z*10sRETUR 
N 

480 N=INT(RND(1)*17)+5s M=INT(RND(1)*35)+1s CHAR1,M,N,s RETURN 
490 IFPEEK < B+40)«70THENG0SUB470s T=T+1 

500 IFB<39B0THENP0KEB+40,32sS0UND3,1000,5sSOUND3,444,5 

510 RETURN 

520 REM 

530 REM INTRO 

540 REM 

550 GOSUB1940sC0L0R1,8,7 


560 

CHAR1,3,4, H 

K 


1* t U 

K 

utu 



K. K. <*'■ 

570 

CHAR1,3,5," 

K. 



l. 


i. 

V. 

K. 


580 

CHAR1,3,6," 

UU 

uu 

K. 

K. 


L 


L" 

590 

CHAR1 ,3,7, 11 

L 

K. 





L 



600 

CHAR1.3.8. M 


K. 

uu 

uu 

i. 


^ ^ L 

K. 

(w» 


610 COLOR 1 , 3 , 7 sCHAR 1 , 8 , 12 ,BY COLOSSUS—SOFT"sCHAR 1 , 12 , 14 , "l 9 B 5 " 

620 CHAR 1 , 14 , 18 ,"VT*s CHAR 1 , 14 , 19 ,"/•*"s CHAR 1 , 14 , 20 , ’T-" 

630 Z*< 1)="1000 V.CHR. n sZ*( 2)="500 V.CHR.■sZ$< 3)= M 44 V.CHR. n sZ*< 4)=“400 N.CHR.“ 
640 Z$ ( 5)="800 N.CHR.":Z$( 6)="1750 N.CHR."s ZS ( 7)="1940 N.CHR.“sZ* 18)="1985 N.CHR 

II 

650 REM 
660 REM LIED 
Ä 70 REM 

680 DATA 1 ,B 81 , 10 , 2 , 0 , 0 , 1 , 834 , 20 , 2 , 0 , 0 , 1 , 810 , 10 , 2 ,BB 1 ,IO 

690 DATA1,796,20,2,834,20,1,768,10,2,810,10,1,739,20,2,796,20,1,768,10,2,768,10 
700 DATA1,796,5,2,739,10,1*768,5,1,739,5,2,644,10,1,1022,5 
710 DATA1,796,10,2,739,10,1,834,20,2,796,20,1,854,10,2,810,10 

720 DATA 1 , 834 , 20 , 2 , 796 , 20 , 1 , 810 ,IO, 2 , 76 B, 10 , 1 , 796 , 30 , 2 , 739 , 30 , 1 , 76 B, 20 , 2 , 721,20 
730 DATA 1 , 8 B 1 , 10 , 2 , 0 , 0 , 1 , 834 , 20 , 2 , 0 , 0 , 1 , 810 , 10 , 2 , 881 ,IO 

740 DATA1,796,20,2,834,20,1,768,10,2,810,10,1,739,20,2,796,20,1,768,10,2,768,10 
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Programme 


750 DATfil,794,5,2,739,10,1,74B,5,1,739,5, 2,644,10,1,1022,5 

?S datai :ä:!:ä i :5S*Ä-: J ’ 7ia ’ 40 ’ 2 ’ 721 ' 40 

780 RESTQRE6B0:FORU=1T034 s READD,E,F,G,H,I:SGUNDD, E , F .SOUN , 

790 NEXT:SOUND1,796,110:S0UND2,BB1,110 

BOO IFR=90THEN190 

BIO GETA*sIFA#“" "THEN1410 

B20 G0T0B10 

830 REM 

B40 REM DATAS FUER ZEICHENSATZ 

860 DATA162,0,189,0,208,157,0,48, 1B9, 0,209,157,0,49,202,208,241,96 


870 DATAB,124,12,10,8,20,34,34 

BBO DATA255,66,36,24,24,36,66,255 

890 DATA255,255,193,195,195,195,255,255 

900 DATA60,66,1B5,161,161,1B5,66,60 

910 DATA2B,28,B,63,125,189,125,61 

920 DATA61,60,36,36,36,36,36,36 

930 DATA16,16,16,16,16,124,16,56 

940 DATA56,56,16,255,56,56,68,68 

950 DATAO, 0,0,0,8,8,141,255 

960 DATA255,195,195,60,60,195,195,255 

970 DATA146,146,146,146,146,146,146,146 
980 DATA255,0,0,255,0,0,255,0 


990 DATAO ,31,31,31,0, 248,248,24B 

1000 DATA3,3,1,1,15,31,55,55 

1010 DATA55,51,51,51,55,7,6,6 

1020 DATA12,12,24,24,24,24,24,56 

1030 DATA192,192,128,128,240,240,240,240 

1040 DATA240,208,216,204,235,224,96,96 

1050 DATA48,49,24,24,24,24,24,28 

1060 DATA0,0,0,0,254,0,0,0 

1070 DATA31 ,34,68,248,31,34, 6B,249 

1080 DATA24B,66,33,31,248,68,34,31 

1090 DATAO,0,183,149,1B3,165,183,0 

1100 DATA—1 


1110 
1120 
1130 
1140 
EXT 
1150 
1160 
1170 
11B0 
1190 
1200 
1210 


FORI“B50T0100STEP-2:SOUND1,1,1:P0KEB,70s C0L0R0,3,INT<RND<1>*7)sNEXT 
G0SUB1270 

F0RI=B50T0100STEP-5:SGUND1* I,1:S0UND2,1,1*P0KEB,72: COLGRO,3,INT(RND(1)*7)sN 


GGSUB1270 

G0T090 

T=0*Z=Z+1 

PU=PU+(2000+Z*100)-BO:IFPU<0THENPU=0 
R=90:IFZ=2THEN1690 
IFZ=3THEN1590 
IFZ=4THEN1B30 


1220 IFZ=5THEN1790 
1230 IFZ=6THEN1860 
1240 IFZ=7THEN1550 
1250 IFZ=BTHEN1460 
1260 IFZ=9THENGOSUB1270:GOTG1350 


1270 SCNCLRsCOLORO,1sCHAR1,0,0,"_ _ __ 

1290 COLOR1,8,5:CHAR1,10,10,"WIR SCHREIBEN"sCHAR1,13,12,"DAS JAHR 
1300 IFZ=9THENRETURN 

1320 CHAR1*lB*lo|"IE":CHAR1,10,18,"ALS HELMUT STARB":CHAR1,14,20," I" 

1330 FORU=1T02000:NEXT 
1340 RETURN 

1350 CHAR 1,13-14,"": PR I NT 11 1985 11 

1360 CHAR1,10,16,CHR#(130):PRINT"HELMUT IST WIEDER Di 
1370 G0T090 
1380 REM 

1390 REM LABYRINTHE 

GOSUB1940: COLGRl ,3,6* F0RI=17TG23: CHAR1 ,4,1,-4| ■ ■ > ■ I I I t I I 1 I I M I « I M I M I I H I L 
tl m NEXT 


I I I I *■ 


1440 COLOR1,8,7sCHAR1 
1450 GOTO190 

1460 G0SUB1940*COLGRl,10,3 
1470 F0RI*17T023: CHAR1,1,1, "lä 


,1,12, ’T—"* CHAR1,1,11,"/•9"* CHAR1,1,10," VT 


|": NEXT: COLOR 
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Programme_ 

1,2 

1480 CHAR1,10,8, »44444444 44444 4" ■ CHAR1,10, 17,"44444 X 4444444" 

1490 F0RI=BT016s CHAR1 , IO, I , "4" sCHARl ,24, I , 11 4" : NEXT: CHAR1 , IO, 18, H “ ^ ^ ^ ‘ " 

1500 F0RI=8T016: CHAR1,10, I , "4" s CHAR1 ,24, I ^ " 4" : NEXTs CHAR1, IO, 18, 11 ^ ^ 1 ^ l l. t l. 1 .l. l. 
1510 CHAR1,9,19, 11 1 NIMM rrrrrrrr sCHARl ,8,20, "| MINIM 
1520 C0L0R1,6,5:F0RI=9T0165CHAR1,11, i ,"B ’ ■":NEXT 

1530 CHAR1,7,21 , "jjjjjjjjjjjjjjj jjjjjj » 

1540 GQTQ190 


1550 GOSUB1940:COLOR1,6sF0RI=1T03B:CHAR1,1,22,"-"sCHARl,1,23,—"sNEXTsCGL0R1,8,7 
1560 FOR 1=10T023s FGRU=4T034STEP 10 s CHAR1 , U , I , 11 444" s NEXT s NEXT 
1570 F0RU=3T033STEP 10s CHAR1 ,U,9, 11 t l. t u« s CHAR1 ,U+2,B, "\“|" : NEXT 
1580 GOTO190 


1590 

GDSUB1940:CHAR1 , 1 

,23 

,"111 

II1II 

MIM 

JJ IJ I 

MIM 

1 1 III 11 II II 1 1 1 1 1 

1600 

CHAR1 , 1 ,22, "| | | | 


LU 

LLL 

LU 

LLL 

<W <W ^ 

II 1 1 1 " 

1610 

CHAR1,1,21," * 


L. L i. 

I. 

^ f. 

LLL 

L. L. 

— ii 

1620 

CHAR1,1 ,20, 11 - 


L. L. 

L. L. 

L. L. 

1 . V. L. 

LLL 

_ii 

1630 

FORI=15T019s CHAR1 

.1. 

I," 


LLL 

t L. L. 

LLL 

^ L. 'J 1 ■ NEXT 


1640 CHAR1,1,14, M jjjjjjjjjjjjjjjjjjjjjjj » 

1650 F0RI=10TD13s CHAR1,1,1, 11 ^ ^ ^ ^ "sNEXT 

1660 CHAR1,1 ,9, " jjjjjjjjjjjjjjjjj » 

1670 CHAR1,19,6,"XT sCHARl,19,7,"/•#"sCHAR1,19,8,T-" 

1680 GOTO190 

1690 COLOR 1,3,5s GOSUB1940s CHAR 1,1,23, » ULI Mil II II I I I I II II I I I I I II I M I I I I I I II " 
1700 FORI=20T022sCHARl,15,1, » MIM 11 s NEXTs F0RI=17T019s CHAR1,13,1, » I I III 1 I I I 11 s NEXT 
1710 FGRI=7T016: CHAR1,11,1, " I I I I I I I I I I I I I 11 s NEXTs CHAR1,12,17 T ."L" s CHAR1 ,22,17,"L M 
1720 CHAR1,12,6," LLL1 J IM I II ”sCHAR1,13,5," 111111111 "sCHAR1,13,10," " 

1730 FORI = 14T016s CHAR1,14,1," "s NEXT:CHAR1,18,IO," " 

1740 COLOR1,8,0 

1750 F0RI=17T022: CHAR1 ,3,1," u- 1 .»: CHAR1 ,33, I , 11 ^ ^ l -"sNEXTs C0L0R1 ,8,7s CHAR1 ,4,16, " 

r_" 


1760 CHAR 1 , 34,16,"I“—" s CHAR 1 , 34,15,"/•¥" : CHAR1 ,4,15,"/•9" : CHAR1 ,4,14,"\T 
1770 CHAR1,34, 14, "\T 
1780 GOTO190 

1790 GOSUB1940s F0RI=13T023s CHAR1,1,1, » t I I I I I I I I I M l I I I I 1 H I I I I I I I 1,1 1 11 1 I I 1 11 11 s NE 
XT 

1800 F0RI=lQT012s CHAR1 T 1 T I T » I I II INI II I I INI I I I I I I »sNEXT 

1810 COLOR 1 ,8,7s FORI=2T034STEP8sCHAR 1 , I ,9, T-" s CHAR1, I ,B, ’V##" sCHAR1,1,7, "XTsNE 

XT 

1820 GOTO190 

1830 G0SUB1940:F0RI=15T023s CHAR1,1,1,"LLL I I 1 I I I I I I I I I I I I LL"s NE 
XT 

1840 CHAR1,1 ■ 14« " I I I I I M I I I I M I M li M M M J I M I II II 11 I II » 

1850 GOTO190 

1860 G0SUB1940:C0L0R1,3,7 

1870 F0RI=14T023:CHAR1,8,1," I I I I I I I M II II I I II I M II M "s NEXT 

1880 C0L0R1 ,6sCHAR 1,15, 10, "4444444444" sCHARl , 17,9, "444444"sCHAR1,19,8, "44" 

1890 CHAR1,9,13,"44444 SCHILLER 4444444" 

1900 CHAR1,11,12,"444444444444444444" s CHAR1,13, 11," 44444444444444" s C0L0R1 ,2 
1910 FORI=20T023sCHAR1,15,1," "sCHAR1,12,1-5," ":CHAR1,25,1-3," "sNEXT 

1920 CHAR1,15,21,CHR$(130)sCHARl,15,21,"\TsCHARl,15,22,"/«"sCHARl,15,23, T-" 
1930 GOTO190 

1940 SCNCLR:FORJ=3T024:CHAR1,0,J,"|"sCHAR1,39,J,"|"sNEXT 
1950 CHAR1,0,2,"| I I I I | II II I I I I I I I I I I II II I I I I I I I II M II I I * 

1960 CHAR1,0,24,"| I I I I I I II I II II I I I I I II I I I I II I I I I I I M 1 I I I"sRETURN 
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Polarisationsfilter zu günstigen Preisen 



Fortsetzung von Seite 1 

Die Handhabung dieser Filter ist denkbar 
einfach. Die im Lieferumfang enthaltenen 
Befestigungsklemmen werden auf dem 
oberen Teil des Bildschirms oder Monitors 
aufgeklebt Anschließend werden die bei¬ 
den Halterstangen in den Filter gesteckt 
und diese vor den Schirm montiert. Sie 
werden sofort den Unterschied feststellen 
und Ihre Augen werden nicht mehr so 


stark beansprucht wie vorher. Die Redak¬ 
tion ist der Meinung, daß es sich bei die¬ 
sem Zubehörteil um ein sinnvolles und 
zugleich nützliches Gerät handelt, das ei¬ 
gentlich vor jedem Bildschirm oder Moni¬ 
tor montiert sein sollte. Dadurch dürfte die 
Diskussion um ein zu langes Arbeiten vor 
dem Monitor etwas entschärft werden. 
Auch der Homecomputeranwender sollte 
an seine Gesundheit denken und von dem 
Angebot Gebrauch machen. 



11nterface für CBM 64 (Black Box) 

1 Akustik-Koppler (V24) mit entspre¬ 
chenden Kabeln 


Die ,jDO IT YOURSELFMailbox 


AHe Bastelfreunde haben die Möglichkeit 
die „Do it yourself“ Mailbox in Betrieb zu 
nehmen. Sie benötigen dazu: 

1 Commodore 64 (oder anderen Compu¬ 


ter) 

1 VC 1541 Floppy 

1 Fischertechnik Computing Baukasten 
(Teilweise) 


Die Fa. Spima Computer, Mannheim, hat 
das Programmpaket Mbox.11 speziell für 
den Commodore 64 zugeschnitten und 
bietet für einen Gesamtpreis von ca. 400,- 
DM den Fischertechnikbaukasten und das 
Interface an. 



■ .^.ViW.W.y1 l üVn n-Lt r t t. ** . * * * * * ' *'*■ ■■■■-■ 11 ■ ■ ■ ■ ■ I ■ ■ ■ 1 . . . . 

Immer mehr Anbieter drängen sich auf dem DFÜSektor. Die Firma CDi stellt nun gleich mehrere Mo - 
dem’s und Akkustikkoppler auf einmal vor. Interessant Ist auch, daß alle Geräte eine FTZ Nummerbesit¬ 
zen, was wohl noch immer nicht selbstverständlich ist 



Hitrans-Modems sind als Akkustikkoppler 
ausgelegl Dies bedeutet daß keine elek¬ 
trische Verbindung zwischen Modem und 
Telefonnetz hergestellt werden muß. Der 
Telefenhörer wird einfach in die Gummi 
muffen des Hitrans-Kopplers eingesteckt 
Die Stromversorgung erfolgt je nach Mo¬ 
dell über Batterie, Netzteil oder sogar 


durch beide Möglichkeiten. 

Der unszu Testzwecken zur Verfügung ge¬ 
stellte Koppler (Modell Nr. 05106) arbeitet 
wahlweise mit 9V Block-Batterie oder ei¬ 
nem 9V Gleichspannungsnetzteil. Im Test 
machte sich jedoch die Batteriewechse¬ 
lung etwas negativ bemerkbar, da dazu 4 
fest angezogene Schrauben gelöst wer¬ 


den müssen, was bei einem relativ hohen 
Stromverbrauch öfter wiederholt werden 
muß. Nachdem wir unser Terminalpro¬ 
gramm (COM 64) auf Halbtublex umge¬ 
schaltet, und die Schalter am Koppler in 
die richtige Stellung (grün/ejn gelb/aus) 
gebracht hatten, lief die Datenübertra¬ 
gung sehr sicher ab. Umgebungsgeräu¬ 
sche schienen unserem Koppler nichts auszumachen, lediglich 
einige etwas schwach übertragene Mailboxen sorgten für einige 
Übertragungsfehler. 

Etwas problematisch verlief auch die Handhabung, denn legt 
man den Koppler flach auf einen Tisch, wie es eigentlich üblich 
ist, werden immer die eingebauten Tasten betätigt. 

Neben diesen kleinen Schönheitsfehlern scheint die Firma CDI 
einige hervorragende Produkte entwickelt zu haben. 


CDI Lieferprogramm 

HITRANS 300 P: 

(Professional) Übertragungsgeschwindigkeit 300 Baud, (30 ZI 
sec.), FDX, Originate/Answer automatische Freischaltung der 
Echosperre, Stromversorgung 220 V, Batterie, Accu-Betrieb 
oder Versorgung über den Schnittstellenstecker möglich. 
Farbe: beige, 

ZZF Nr. 18.13.2015.00 
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HITRANS 300 C: 

(Consumer) Übertragungsgeschwindig¬ 
keit 300 Baud, FDX, Originate/Answer, 
Stromversorgung über Schnittstellen¬ 
stecker, externes Netzteil 12 V, 40 riiA oder 
über Blockbatterie. Farbe: schwarz, 

ZZF Nr. 18.13.2015.00 

HITRANS 1200: 

Übertragungsgeschwindigkeit Senden: 
1200 Baud, Empfangen: 1200 oder 75 
Baud umschaltbar 1200/1200 HDX-oder 


1200/75 FDX-Betrieb, Stromversorgung 
über Schnittstellenstecker, Netzteil 12 V, 
30 mA, Batterie oder Accu, ZZF Nr. 
18.13.2017.00 

HITRANS 75/1200: 

BTX-zugelassener Akustikkoppler, Sen¬ 
den: 75 Baud, Empfangen: 1200 Baud, 
V.24 Schnittstelle, optional DBT 03, 
Stromversorgung Netzteil 12 V, 30 mA, 
Batterie oder Accu, 

ZZF Nr. 18.13.2020.00 


HITRANS U: 

Universalkoppler 300 Baud FDX, Origina- 
te-Answer und 1200 Baud HDX umschalt¬ 
bar, Stromversorgung über den Schnitt¬ 
stellenstecker, Netzteil ± 15 Volt, 
1600 mA, 

ZZF Nr. 18.13.2016.00 

HITRANS MUFF: 

300/1200 Baud Sendeteil (nur Senden 
möglich), 

ZZF Nr. 18.13.2018.00 


BTX - Commodore 64 Software per Telefon 


Erfreuliche Nachrichten für die über 
700.000 Commodore 64 User in der Bun¬ 
desrepublik Deutschland. Jeder Besitzer 
eines C-64 kann durch den Erwerb eines 
Decodermoduls SD-64 zum Kreis der Btx- 
Teilnehmer gehören. Nach der Entwick¬ 
lung eines Btx-Decoders durch Commo¬ 
dore gibt es bereits ein weiteres Modul, 
das nach Angaben des Herstellers den 
bisherigen, weitaus teureren Geräten in 
Intelligenz und Funktion weit überlegen 
ist Dadurch wird Btx zum Kommunika¬ 
tions-Medium für jedermann, denn schon 
mit wenigen Handgriffen ist Ihr Commo¬ 
dore 64 zum Abrufterminal für Bild¬ 
schirmtext umfunktioniert Der Tronic- 
Verlag plant in Zusammenarbeit mit dem 
Hersteller des Moduls, Btx auch für die 
Zeitschriftenleser sinnvoll einzusetzen. 
Dabei gehen die Überlegungen dahin, daß 
bereits ab Anfang des Jahres 1986 ein 
„Telesoft-Vertrieb“ imTronic-Verlag einge¬ 
richtet wird. Hier soll der Kunde die Mög¬ 
lichkeit erhalten, qualitativ hochwertige 
Software über Telefon abzurufen. Dabei 
liegen die Vorteile für den Verbraucher in 
der Tatsache, daß er schnell, ohne Bestell¬ 
end Lieferzeiten und günstig an gute Soft¬ 
ware gelangt. Die Telefongebühren für 
den Btx-Service sind sehr gering, da im 
gesamten Bundesgebiet zum Nah-Tarif te¬ 
lefoniert werden kann. Somit ist Btx ei¬ 
gentlich nicht nur für die professionelle 
Nutzung gedacht, sondern kann von je¬ 
dermann genutzt werden. 


Nähere Einzelheiten zum „Telesoft-Ver¬ 
trieb“ und das neuentwickelte Modul er¬ 
halten Sie bei der Programmierabteilung 


unseres Hauses bzw. in einer unserer 
nächsten Ausgaben. 


Siemens beurteilt Entwicklung des Btx-Dienstes positiv 


Mit den ersten Prognosen zum seinerzeit 
erst geplanten und in der Erprobungspha¬ 
se befindlichen Bildschirmtextdienst(Btx) 
wurden diesem neuen Kommunikations¬ 
medium enorme Vorschußlorbeeren zuer¬ 
kannt. Diese Schätzungen basierten auf 
der Annahme, daß über Btx die elektroni¬ 
sche Kommunikation auf breiter Basis 
Einzug in den privaten Haushalt finden 
würde. Darüberhinaus setzten diese Pro¬ 
gnosen einen termingerechten Start des 
Btx-Systems sowie das gleichzeitige Vor¬ 
handensein der notwendigen Endgeräte¬ 
techniken voraus. Beides wurde erst mit 
deutlicher Verzögerung realisiert. 

Die heute im Btx-Dienst angebotene Stati¬ 
stik zeigt über den Zeitraum des Dienstes 
von seinem Beginn an betrachtetfolgende 
Entwicklung: Der Start des Dienstes im 
August 1984 war gekennzeichnet durch 
eine hohe Beteiligung von Informa¬ 
tionsanbietern, die von Anfang an mit sehr 
umfangreichem und komplexem Informa¬ 
tionsangebot vertreten waren. Die Zahl 
der Informationsanbieter hat sich in nur 
einem Jahr um über ein Viertel (27 %) 
kontinuierlich erhöht. Dieangebötenen In¬ 
formationsseiten nahmen in der gleichen 


Zeit auf fast das Doppelte zu. Das zeigt 
daß die Informationsanbieter heute ihr 
komplexes Angebot intensiv ausgebaut 
strukturiert und bedienerfreundlich 
gegliedert haben. Trotz der technischen 
Anlaufprobleme hat sich die Zahl der Btx- 
Teilnehmer von 14000 um rund 20000 
auf 34000 erhöht 



6,64 10.04 13.64 2.65 4.65 6.65 14.10.65 
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Programme 


190 END 

200 DATAO,0,0,0,0,0,0,0 
210 DATAO,0,0,0,3,4,9,1B 
220 DATAO,0,0,0,224,16,200,36 
230 DATA20,20,20,36,72,200,16,224 
240 DATA20,20,20,20,18,9,4,3 
250 DATA20,62,20,20,20,20,62,20 


260 DATAO,0,0,36,255,36,255,36 

270 DATAO,0,0,0,0,0,0,0 

280 DATA24B,252,226,255,255,36,255,36 

290 DATA31,63,71,255,255,36,255,36 

300 DATA24.60,126,102,102,126,126,126 

310 DATA126,126,126,102,102,126,60,24 


320 PRINT"L"TABC6B)"YOU MUST CONTROL THE POINTS SO THAT THE ENGINES DO NOT RUN 
OUT"} 

330 PRINT"OF TRACK.PRINT:PRINT" YOU START UITH ONE ENGINE AND POINTS ARE AUA 
RDED "; 

340 PRINT"FOR THE TIME YOU CAN KEEP THE LOCOS FROM CRASHING." 


Haben Sie sehen eM als Signaiwärter Ihren 
Dienst «ersehen? Jeder VC-20 Besitzer 
kommt bei diesem Programm in den Ge¬ 
nuß, den Zugverkehr sicher zu steuern. Es 
klingt zwar sehr einfach, ist es aber nicht! 

Der Zug fährt in der linken oberen Bild¬ 
schirmhälfte los und Sie müssen nun mit 
Hilfe der Tastatur (Zahlen 1 - 6) den Zug 
steuern und an den entsprechenden Stel¬ 
len die Weichen richtig stellen. Insgesamt 
gibt es6 Weichen die an den entsprechen¬ 
den Punkten durch Druck auf die richtige 
Zahlentaste um eine Drehrichtung verän¬ 
dert werden können. 


Die Lok erhöht mit zunehmender Spiel¬ 
dauer automatisch die Geschwindigkeit 
Die Spielbeschreibung innerhalb der Pro¬ 
grammzeilen ist in englicher Sprache, da 
der Autor des Programmes aus Amerika 
stammt 


Telii: 


Wir hoffen, Sie haben trotzdem viel Spaß 
mit dem Programm und es gelingt Ih¬ 
nen, den Zug so zu steuern, daß er 
10 print"l ,, *printtab( 222 ) "instructions y/n ?" nicht aus den Gleisen kommt 

20 8ETA*sIFA*=" H THEN20 

30 I FA$= " Y" TVIENGOSUB320 

40 PRIIMT M U"TAB (224) "MOMENT PLEASE” 

50 FÜRI=7168T07679s POKEX,PEEK<1+25600)sNEXT 
60 POKE52*28sPOKE56,28sCLR 
70 F0RI=7168T07263tREADAs POKEI,A:NEXT 
80 P0KE36869 ,255s P0KE7678,1 

90 PRINTCHR*(147) sF0RI=1T040:PRINT^UhLOCOS sNEXT 

100 Y=128sW=36878s X=36876:M=7701sF0RI=1T0243:T <V)=PEEK(M+l) 

110 V=V+ls IFV=2THENV=0 

120 M=M+1sPOKEM,8sP0KEM+30720,O:POKEM-1 f TCV) 

130 A=A+1:IFA=10RA>7THENÄ=2 
140 Y=Y+I:IFY >254THENY=0 

150 POKEW, 15sPOKEX ,YsFORP—iTOlOsfsEXT:POKEW,Os POKEX,0 
160 POKEM—1+30720,AsNEXT 

170 PRINT" iah PRESS PLAY ON TAPE"sWAIT37151 f 126,126 
180 PRINT Ia m OK. LOADING PT.2 CH"; sP0KE631,131 sP0KE19B, 1 


D er VC-20 Schnellzug auf 

Sonderfahrt 
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software-service 


Achtung/! Solange Vorrat reicht//Achtung/! 




TOP-HIT Angebot Nr. 1 


Sptolpragramme 

Kante / Flralegiea / Memory / Space-Age / Pla¬ 
net ol Deett / 

COM PCK1 (KiSl.) 35," DM 

CDM PGDI (Dieb.) 40,— DM 


TOP-HIT Angebot Nr. 2 


Splelprograimne 

Oalaxy / Vampir I The Maze Braze Oame / Tank- 
DneH / Super-Braakont / 

COM PGK2 (Hass.) 30,— DM 

COM PCD2 (DM.) 40,— OM 


TOP-HIT Angebot Nr. 3 
(nur Disketten) 


Anwendungsprogramme 

Sequenzer / Supermonl 04 / Mlcre-Teels / Disk 

1.0 / IML 

Batfell-Nr.: COM PCD 3 40,-- DM 


C-84-Benus-Kassette (Top 5) _ 

Flreblrd / Praiekt / Monster Attack / High Noon / 
Roadpalnter 

Bestell-Nr.: CPK1/05 DM 35,- 


Super-Dlsk ll-C 04 (Top 5) 


Flreblrd / Projekt / Monitor Attack / High Noon / 
Roadpainter 

Bestell-Nr.: CPD 2/85 DM 40,- 


Super-Dlsk-C 64 (Top 10) 


High Music / Grand Prix / Drleftaube / Cadelon / 
Jet-Pac / Star Battle / Painter / Skeet / Spiders / 
Space Comets 

Oestell-Nr.: CP01/05 DM 75,- 


Nachdem unsere 10 TOP-HIT- 
Angebote bei Ihnen so hervor¬ 
ragenden Zuspruch gefunden 
haben, bieten wir Ihnen er¬ 
neut die Möglichkeit, die Rest¬ 
bestände dieser Aktion zu er¬ 
werben. 

Jeder der noch nicht von un¬ 
serem Angebot Gebrauch ge¬ 
machthat, bekommt also eine 
zweite (Bestell-) Chance. 
Dieses Angebot gilt nur noch 
solange der Vorrat reicht 


w&m 


TOP-HIT Angebot Nr. 4 


Flowers I / Flowen II / Geo-Zaxxon / Balloon- 
Sheot / Stuntman 

Bestell-Nr.: COM PVK1 30,-- DM 

TOP-HIT Angebot Nr. 5 

Splelprogromme 

Elnbncher / Jupiter Rescue / Hospital / Dange- 
rous Planet / Dino-Eggs 

Bestell-Nr: COM PVK2 30,— DM 

VC-20-Bonus-Kassette (Top 10) 

DQsl / Race ON / Cagy / Natron / Obst / Der rasen¬ 
de Malocher / Powerpaok / Buflole Bill / Prost/ 
Fressman 

Bestell-Nr.: VPK1/05 DM 40,— 


C0MM0D0RE16 

TOP-HIT Angebot Nr. 6 


Spieiproemmme 

SOS-Schilfsbruch / Schatztancher / Car Race / 
Date-Maker / MERGE-Rautlne 


BestoH-Nr: COM P0K1 (Kass.) 
Bestell-Nr.: COM POC1 (Disk.) 

Ir. 7 


30,— I 
35,— I 


SpMprogramme 

ShaoUn / Jumping Joe / Oty-Runner / OLD-Reu- 
Hne / Zeichenformer 


BestoH-Nr: COM P0K2 (Kess.) 
Bestell-Nr.: COM P0C2 (Disk.) 


30.— OM 
35,— DM 


Schneider 


TOP-HIT Angebot Nr. 0 


Q-Bert / Tower / Inka-Segn* / Duell / Allien- 


30.— DM 
45,— DM 


Bestell-Nr.: COM PSK1 (Kass.) 
Bestell-Nr: COM PSD1 (Disk.) 

* nur auf Kassette lauffähig 

TOP-HIT Angebot Nr 0 


Cave-Runner / 3 D-Labyrinth / Citylander / Etis / 
Domen Attack 

Bestell-Nr.: COM PSK2 (Kass.) 30,— DM 

Bestell-Nr: COM PSD2 (Disk.) 45,— OM 

TOP-HIT Angebot Nr. 10 


r-Filo / Data-Wandler / Datenverwaltung / 
Tastatnrbelogung / HEM-Killer / 'Single-Disk- 
Backuy / ‘Dlscshow 

Bestell-Nr: COM PSK3 (Kass.) 40,— DM 

BesteN-Nr.: COM PSD3 (Disk.) 55,— DM 

* nur auf Diskette lauffähig 


Achtung!! Solange Vorrat reicht!! Achtung!! 


Der Tronic-Verlag bietet allen „Compute 
mit“ Lesern auch weiterhin die Möglich¬ 
keit, alle veröffentlichten Programme des 
Jahrgangs 1 zu bestellen. Geben Sie nur 
die Bestell-Nummer an und Sie erhalten 

innerhalb 

1 Woche 

die von Ihnen gewünschte Software zuge¬ 
sandt. Beachten Sie bitte, daß bei Bestel- 

lung per Telefon zusätzliche Kosten ent¬ 
stehen (NachnahmegebGhr bis zu 5,— DM). 
Austandsliefeningen erfolgen nur fegen Vor¬ 
kasse, um die Empfänger vor zu hohen 
Postgebühren zu schützen. 


Heft 1/85 

Heft 6/85 

Heft 7/85 

Commodora 

Bestell-Nr COM C 1/1 16g- DM 

Bestell-Nr. ©OM D 1/1 20,- DM 

SdmelBer 

Bestell-Nr. COM S 1/1 10,- DM 

Cammodora 

Bestell-Nr. COM C 2/1 16,- DM 

Bestell-Nr COM C 2/1 20.- DM 

Schneider 

Bestall-Nr CDM S 2/1 16,- DM 

CemmMtore 

Bestell-Nr. COM CK 3/1 16,- DM 

Bestell-Nr. COM CD 3/1 20,- DM 

BnteHkNr.COM SK 3/1 10,- BM 

BasteH-Nr. CDM SD 3/1 30.- OM 
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software-service 


Hilft H/8Ü 

Heft 9/85 

Heft 10/05 

Commodora 

Bestell-Nr. COM CK 4/1 
Bestell-Nr. COM CD 4/1 

10,- DM 
20,-OM 

Commodora 

Bestell-Nr. COM CK 5/1 
Bastell-Nr. COM CD 5/1 

10.- DM 
20.- DM 

Commedora 

Bestell-Nr. COM CK 0/1 
Bestell-Nr. COM CD 0/1 

10.- DM 
20,- DM 

Schneider 

Bestell-Nr. COM SK 4/1 
Bestell-Nr. COM SD 4/1 

10,- DM 
30,- DM 

Schneider 

Bestell-Nr. COM SK 1/1 
Bestell-Nr. COM SD 1/1 

10,- OM 
30,- DM 

Schneider 

Bestell-Nr. COM SK 0/1 
BeslsH-Nr. COM SD 0/1 

10,- DM 
30,- DM 

Heit 11/85 

Nett 12/05 

Aus diosam Heft: 

Commodora 

Bestell-Nr. COM CK 7/1 
Bestell-Nr. COM CD 7/1 

10,-DM 
20,- DM 

Commodora 

Bestell-Nr. COM CK 0/1 
Bestell-Nr. COM CD 0/1 

10,-OM 
20,- DM 

Cemmadsra 
■sslell-Nr.COM CK 1/2 
BesteN-Nr.COM CD 1/2 

16,- DM 
20,- DM 

Schneider 

Bestell-Nr. COM SK 7/1 
Bestell-Nr. COM SD 7/1 

10,- DM 
30,- DM 

Schneider 

Bestell-Nr.COM SK 0/1 
Bestell-Nr. COM SD 0/1 

10,-DM 
90.-DM 

Schneider 

Bestell-Nr. COM SK 1/2 
BMtell-Nr.COM SD 1/2 

16,- DM 
39,- DM 


Programm 


MeM-Ksv/S-TM « 4 / 


Preis/ Preis/ 
Kassette Diskette 


Bestell-Nr. 


Cc64 


Spritabllfa/Dlsklosdor/ 

Dlrtctary 

Taps- 0 if ec! ory / Asman/ 

Dila-Den erster 
Fast Load 

DhkmMltar/ZelchaRsatz 
RBaMsmbler/Maikaifenirater 
Dal DSAMberprogramm 
ffir 1526/NI PS 102 Decalavator 
Saportapadlrsctsry/Renew/ 

K<m troll abf rage 
ffc. r eu-Utilities. 

Mutti-Basic 13, Bildeditor 
Battar Basic/Autanunibtr/ 
HardcapF/TarmlaalpraBramm 
Haactar/Caacaatration/Datenbank 
Wtrtordt/Cmffls o! Death 
Allen-Destrayer/Duell 
Ocaaa Garna/Tennis 
ThaCavas 


Ufo/Skatebaard $m 
Maasia/widarstaad 
Spaca-Camats/Erdspalta/ 
Sprita-Data 

Aatastart/Bastallschein/ 

Rpadpimter 

Hirdcopy/Spice-Flahter/ 

Bata-Baaaratar 

M •Bstar-Ättack/Ilpck- 

Patatar/Epsaa-Dnickef 

Prajakt/Dataabaafc 

Sptdars/TlM Basic 

Hlfh Noon/Skaat/ 

Braflk-Baslansr 

Piln tar/S tir-Baddle/Edf tar 

Wüstenrallv/Jnt-Pae/ 

B Mi Castla 
Bit oft i u be/Ca del o n 
Bitter Irik/Gnnd Prix Spritnhilfe 
FlreUrd/Hlah Maile 
Moonsweepe r/Scottf 


16 ,— DM 

21 ,- DM 

UC 2/85 

21 ,—DRN 

- 

UC 3 . 1/95 

15 ,— DM 
10 ,— DM 

21 ,— DM 

UC 3 . 2/85 

UC 4/84 

20 ,— DM 

- 

UC 5/85 

15 ,— DM 

20 ,- DM 

UC 6/85 

14 ,— DM 

19 ,— DM 

UC 7/85 

15 ,— DM 

- 

UC 8/85 

17 ,— DM 

23 ,— DM 

UC 9/85 

17 ,— DM 

23 ,— DM 

UC 10/85 

i 17,50 DM 

23,50 DM 

HC/C -1 

14,50 DM 

19,50 DM 

HC/C -2 

24,50 DM 

29,50 DM 

HC/C -3 

17,50 DM 

23,50 DM 

HC/C -4 

17,50 DM 

23,50 OM 

HC/C -5 

17,50 DM 

23,50 DM 

HC/C -6 

24,50 DM 

29,50 DM 

HC/C- 1-4 

8 ,— DM 

15 ,— DM 

C 41 

15 ,— DM 

23,50 DM 

C 51 

16,50 DM 

23,50 DM 

C 61 

15,50 DM 

19,50 DM 

C 71 

10,50 DM 

23,50 DM 

C 81 

16 ,— DM 

23,50 DM 

C 91 

16,50 DM 

23,50 DM 

C 101 

17,50 DM 

23,50 DM 

CT 21 

17,50 DM 

23,50 DM 

C 22 

17,50 DM 

23,50 DM 

C 32 

10,50 DM 

24,50 DM 

C 42 

10,50 DM 

24,50 DM 

C 52 

24,50 DM 

29,50 DM 

C 62 

24,50 DM 

29,50 DM 

C 72 


Programm 


Multlgraph/All Hammer 
Zyklo/Matsorlt 
Stil an/Schl o 6 GruselstsJa 
Fressman/Batlaw 
Piast/Baffala Bill 
Jap Mse/Powerptck 


FraaUt goes ta Pbaraa 

Matran/Obst 

Raca Ofl/Can 

H Urban 30 /Däsl 

Braakar/Expalslan 

Zykla/Galdsammler 

Star-Wars/Panktafrassar 

Glich the Rih/Mister Jump 

Gtaasfs Eofs/Fax Hunt 

Collactar/Brask Out 

Q-Bert/Salvige Crew 

Bob Flyht/Schwrltzbad 

Sprltes/Space-Battle 

Graflk-Painter 

HC-Clock 


Joypaint 

Disassambler, Old-Programma 
Dlrectory/Farh-JRQ 


Preis/ 

Kassette 

11 ,--BM 
11 ,— DM 
14 ,— DM 
14 .- BM 
14 ,— DM 
14 ,— DM 

14,— m 

14 ,—DM 
14 ,— DM 
14 ,— DM 
14 ,—DM 

11.50 DM 

14.50 DM 
14,50 DM 
14,50 DM 

14.50 DM 

16.50 DM 
16,50 DM 
13 ,— DM 
10 ,— DM 

9 , — DM 
9 ,— DM 

12 ,— DM 
10 ,— DM 

10 , — DM 


Preis/ 

Diskette 

15.59 DM 

19.50 DM 

10.50 DM 

10.59 QM 
10,59 DM 

19.50 DM 

19,50 DM 
19,50 DM 
19,50 DM 
19,50 DM 
19,50 DM 


19,-1 


Schneider 


imm 


Bestellscbeln/GIBcky 


8,50 DM 


15 ,- DM 


1 Dl 


Bestell-Nr. 


171 
isi 
101 
1101 
1121 
122 

132 

142 

152 

102 

172 
HC/ 1-1 
HC/ 1-2 
HC/ 1-3 
HC/ 1-4 
HC/ 1-5 
HC/ 1-6 
HC/ 1 - 1-4 
Ul 2/85 
Ul 5/85 
Ul 6/85 
Ul 7/85 
Ul 8/85 
0/85 

Ul 10/85 


Autorennen 

11 ,—DM 

- 

US 3 /B 5 

Universal-Datei 11 

9 ,— DM 

- 

US, 4/85 

Computerscbrift/Symbol-Swap 

10 .— DM 

- 

US 5/85 

Koybaard Toolkit/Farbdecodierung 
Aladln 

11 ,— DM 
9 ,— DM 

- 

US 6 . 1/85 

US 6 . 2/85 

Palntar/Box-Befahl 

14 ,— DM 

24 ,— DM 

US 7/85 

Maschinen tpriche-Monttor/ 
Dlsk-Hlla 

15 ,— DM 

25 ,— DM 

US 8/85 

Basic, Maschlnen-Kft 

12 ,—DM 

22 ,— DM 

US 9/85 

Bachup/Dlrsctsry/ 

Elllpse/DM 

_ 

27 ,— DM 

US 10/85 

Fbllscblnasplngar 

Dl—DM 

- 

HC/SR -3 

Geists recht dB 

9 ,—DM 

- 

HC/SR -4 

Islchandoitgnsr 

12,50 DM 

- 

HC/SR -5 

Mini Car Gaca/Intsrcspter 3 D 

17,50 DM 

26,50 DM 

HC/SR -6 

Saeret Agent 

12,50 

24,50 

HC/SR- 1-4 

Supar-Mlaar 

14 ,- DM 

- 

SR 42 

CPC-Bert 

14 ,—DM 

- 

SR 52 

Cenaa’s Castla 

15,50 DM 

- 

SR 02 

Snldar's Maca 

16,60 


SR 72 
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Programme_ 

350 PRINTsPRINT" IF YOUREACH 1000 POINTS YOU HAVE TWO ENGINES TO KEEP GOIN 
G. » 

360 PRINT"BBMBMPRESS ANY KEY":P0KE198,0:WAIT 198,1 

370 PRINT"U , ’TAB<67) "REACH 1000 POINTS AT THIS LEVEL AND YOU GOTO LEVEL 3 WIT 
H "} 

3S0 PRINT" THREE LOCOS." 

390 PRINTsPRINT" IF YOU CRASH ON THE SECOND OR THIRD LEVELS YOUR SCORE IS ADDED 

II m 

9 

400 PRINT" TO YOUR PREVIOUS LEVEL'S SCORE." 

410 PRINT:PRINT"|HB USE KEYS 1 - 6 TO CONTROL THE POINTS." 

420 PRINT"fäSiüfcSÜHlÜPRESS ANY KEY“sPOKEl98,0:WAIT198,1:RETURN 


1 G0T054 

2 FORI=1T040:U=U+1:IFU>BTHENG0T071 

3 IFI=WAND0=.THENPOKEZ,K:G0SUB31:0-I 

4 IFOANDI—0>6THENPRINTJ$: G0SUB33 

5 POKEY,XIF0RH=1TOD—U 

6 NEXT:PRINTF$U:POKEY,. 

7 F0RS=1T0F:M=M(S>:U(S)=M:P=S*2 

8 GETZ*:IFZ*<"1"0RZ*>"6"THEN10 

9 POKEZ,NsG=ASC(Z$)—48:G0SUB34 

10 ONN(S)GOT011,15,19,23 

11 M=M+1:T=PEEK<M):L=B:IFT-6THEN26 

12 IFT«2THENN(S)=3 

13 IFT™3THENN(S)=4 

14 GOT026 

15 M=M-1:T=PEEK(M):L=9iIFT=6THEN26 

16 IFT"4THENN(S)=4 

17 IFT^ITHENN(S)=3 


Teil: 2 

18 G0T026 

19 M=M+J:T=PEEK(M)*L=11:IFT=5THEN26 

20 IFT=3THENN(S)=2 

21 IFT*4THENN(S)*1 

22 G0T026 

23 M=M—J:T=PEEK <M):L=10:IFT=5THEN26 

24 IFT=2THENN <S)=2 

25 IFT=1THENN(S)«1 

26 T<V)»T:IFT>6THEN74 

27 V=V+liIFV=QTHENV=. 

28 POKEM,L:POKEM+C,P:POKEU<S),T(V) 
:POKEU(S)+C,1 

29 M(S>»M 

30 NEXTsNEXT 

31 W=INT <RND<0)*6+14>:E=W—13 

32 PRINTF$"lfld POINT "E" CHANGING":RETURN 

33 G=E:I«.:0=. 

34 A=C(G,3) 


35 IFPEEK(A-l)>70RPEEK<A+1)>70RPEEK(A+J)>70RPEEKCA-J)>70RPEEK(A)>7THENP0KEZ,.:RE 
TURN 

36 R«C(6,4):R=R+1:IFG=20RG=4THEN3B 

37 IFR>3THENR»1 

38 IFR>6THENR=1 


39 ONG G0SUB51,43,52,43,52,53 

40 PRINTLEFT*<K*,C<G,1))SPC(C(G,2))Y$F*:C(G.4)=R 


41 IFOTHENPOKEZ,K:RETURN 

42 POKEZ,.rRETURN 

43 0NRG0T044,45,46,47,48,49 

44 Y*="GKM|GAFK1ME": RETURN 

45 Y*=»“ GKlllFFFßailG « : RETURN 


46 Y*= » GEüiFBGüair 11 : RETURN 

47 Y*=" ECaUGEGIHsE": RETURN 

48 Y*= "EjHBDFMP" : RETURN 

49 Y*= " EKHFCGfiMP " : RETURN 


50 0NRG0TO44,47,48 

51 ONRGOT044., 45,46 

52 ONRG0TO46,47,49 

53 ONRGOT045,48,49 


54 PRINT"ti":CLR:M=0:T=0:C-30720:V=0:S=0:G=0:R=Os A=0:Y=7866:U=0:0=0:B=0:Z=36876:N 
«8020 

55 K*0:J=22:X=18BiY=36B77:F*="B":DIMC<8,4>,M(4),U(4),NC4>iP0KE36869,255tF=PEEK(7 
678) 

56 F0RI=1T06:READA,B,D:C(I,1)=A:C(I,2)=B:C(I,3>=D:NEXT:K=8+F#2:POKE36879,K:K=148 

57 A1**"F":A*-"A":B*="B":C*="C“:D*="D":E*="E n :k*="B"sF0RI=1T022:K^=K4+“M“sNEXT 

58 PRINT"L":F0RA»3T023STEP6:F0RIslT019:IFA=15THENA=16 

59 PRINT"ia"LEFT4(K4, A)SPC (I) Al*; sNEXTI , A 

60 F0RA=4T021sFDRI=lT020STEP9:IF1=19THEN1=20 

61 PRINTLEFT*(K$,A)TAB(I)E$:NEXTI,A:F0RI=0T05:PRINTLEFT*(K$,10+I)TAB(1)■ “sNEXT 

62 PRINTLEFT*<K4,3)TAB(1)A*SPC<18)BPLEFT$(K*,9)TAB(1)DSLEFT*(K4,22)TAB(1)D$SPC<1 
B)C$ 

63 PRINTLEFT*(K*,16)TAB(1)A*LEFT$(K$,4)SPC(11)"Bl"LEFT*(K*,IO)SPC(8)"2"SPC(9)"3" 

64 PRINTLEFT$<K*,17)SPC<8) ,, 4 ,, SPC<9) ‘^“LEFT*(K*,21)SPC(11) "6"F* 

65 F0RI=1T06:G=I:R=INT(RND(0)*5):C(I,4)=R 


34 
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Programme. 


66 GOSUB 36:NEXT 

67 Q=F+1iD=200: W=25 

68 M(l)=7724:M(2)=B142:N<1)=1:N(2)=1:M(3)=7856:N(3)=1:B=1000:N=255 

69 JS="98":FDR1 = 1T020:J$=J $+"G":NEXT 

70 P0KE36878,15:G0T02 

71 FORI=1TO1000:NEXT:P0KE7678,F+1:PDKE36878,O:P0KE7677,PEEK(7677)+1 

72 IFPEEK(7677)=3THEN78 

73 GDT054 

74 FORI = 1TO17STEP.3:P0KE36B7B,I:P0KE36877,249:FORP=1T060:NEXT:NEXT:P0KE767B,1 

75 PRINT"Uä"SPC (225) "CRASHElD ! ! ! "SPC (33) " YOU 5CORED "j 

76 PRINTSPC (31) PEEK (7677)*1000+U" POINTS" 

77 FDR1=1T05000:NEXT:P0KE7677,O:GDT054 

7B PRINT"Li"SPC (245) "lifi/ERY WELL DQNE":F0RI=1T05000:NEXT:POKE7677,0:P0KE7678,1:GOT 
054 

79 DATA2,10,7734,B,10,7866,8,20,7876 

80 DATA15,10,8020,15,20,8030,21,10,8152 



Rock'Me ist ein kurzes, aber dennoch ver¬ 
blüffend effektvolles Musikprogramm für 
den VC-20 mit min. 8kB-Erweiterung. Mit 
Rock’me kann eine Sequenz von 12 Takten 
plus Begleitung (über die Tastatur) ge¬ 
spielt werden. 

Sind beide Listings abgetippt, wird zu¬ 
nächst erst Rock’me Datas geladen und 
gestartet. Ein Fehler wird automatisch an¬ 
gezeigt. Sollten alle Datas korrekt sein, 
meldet sich der VC-20 mit READY. Nun 
NEW eingeben und danach wird Rock’me 
Basic geladen. Mit RUN gestartet können 
Sie nun musizieren. 

Zunächst muß erst einmal die Huellkurve 
programmiert werden. Mit Fl hält nun der 
lange Cursor an, und unten unter dem 
ADSR-Feld blinkt ein Balken. Sie können 
nun mit den Tasten 0-9 + A-F die Laut¬ 
stärke für 4 Zyklen programmieren. Ein 


RETURN würde den alten Wert (beim Start 
= 0) übernehmen. Haben Sie die 4 Zyklen 
programmiert, beginnt der lange Cursor 
wieder zu wandern und somit ist die Huell- 
kurveneingabe beendet 
Nun wird der Rhythmus programmiert. 
Tippen Sie nun auf die F7-Taste. Der lange 
Cursor verschwindet wieder, und es er¬ 
scheint ein kleiner Cursor. Sie können nun 
mit den Cursortasten wie im Direktmodus 
umherwandem. Passen Sie bitte in die¬ 
sem Modus besonders auf! Denn ein ver¬ 
sehentliches Bildschirmlöschen durch 
SHIFT/CLRHOME kann nur durch erneu¬ 
ten Programmstart rückgängig gemacht 
werden. 

Den Cursor setzen Sie nun an Position ’T 
der Snare-Taktzeile. Um nun einen Takt¬ 
punkt zu setzen, betätigen Sie bitte SHIFT- 
Q. Der ausgefüllte Ball stellt einen gesetz¬ 


ten Taktpunkt, der während der unausge- 
füllte Ball einen ungesetzten darsteilt 
Probieren Sie die einmal folgende Se¬ 
quenz aus. 

Durch RETURN gelangen Sie wieder auto¬ 
matisch in den Play-Modus. Sie sollten 
nun den Rhythmus hören können. Beson¬ 
ders interessant ist der Anschluß an eine 
STEREO-Anlage. 

Mit den oberen Tasten Q-t können Sie die 
Begleitung spielen. Sie wirkt auf Bassi 
und auf Bass2, wobei Bass2 = Bassi +1 
Oktave höher entspricht 
Beachten Sie bitte, daßSnare und Cymbel 
monoton sind, d. h. nur ein Instrument ist 
gleichzeitig hörbar. Die Cymbel ist dabei 
dominant. 

Nun viel Spaß beim Musizieren mit 
ROCK’ME. 


2 P0K£37138,255:P0KE36879,42:TA=11 

3 PRINT M US M ; 

5 G0SUB3000 
1000 FORSC=OTOTA 
1011 P0KE8447,SC 

1013 SYSB704 

1014 SYS8448:SYS8528 

1015 SYS8592:SYS8736 

1016 F0RT=1TD4 

1017 IFPEEK(0735)=1THENPOKE36078,L(T) 

1018 IFPEEK(8735)=OTHENPOKE36878,O 


1019 NEXT 

1020 P0KE37136,0:FORD=36B74T036877 
:P0KED,0:NEXT 

1021 GOTO4O00 

1098 NEXT 

1099 GOTOIOOO 

3000 PRINT"®---- 

3005 PRINT" 123456789ABC" 

3010 FORAS=OTD4:PRINT" ";:FORIS=OTOTA: 
PRINT"O";:NEXT:READES:PRINT” "ES:NEXT 
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Programme 


3040 PRINT ,> &SgBESIS&9--- 

3050 PRINT"_ 

3054 PRINT"|*HJCK'I1E BY H.G.NOWACKI" 


uimiifi »> A.O.S.R.“ 

3082 PRINT"KUfe01ÜUdäF7 => CREATE" 
3084 PfiINT"l!AUUUIUHC) 1985“ 

3099 RETURN 

4000 IFPEEK(197)»63THEN4010 
4005 IFPEEK(197)»39THEN4200 
4009 GOTO1098 


3080 PRINT" 



3060 PRINT'S-r 

3062 PRINT"IADSR| 


3063 PRINT" |-1" 

3065 FORT»1TOSiPRINT"| |":NEXT 


3066 PRINT"'-1», 

3070 PRINT"H"* 


j« 


4010 SYS852B i SYS852B : POKE19B,0:PRINT" ■ • OPEN 1,0s INPUT« 1, ES s CLOSEI 

4020 GOTO1OOO 

4200 F0RSD»0T03s P=4559+SD : H=1+SD 
4210 G0SUB4300IW*L(H):G0SUB6000 
4220 NEXTiGOTO1OOO 

4300 FORRF»PTDP—7*22STEP—22sPOKERF,PEEK(RF)AND127:NEXT 
4310 GETESsF0RVE=lT050sNEXT 
4315 IFES= n "THENES=" " 

4320 IFASC(ES)>47ANDASC(ES)<58THEN4350 

4330 IFASC (ES) >64ANDASC(ES) <71THENES=CHRS(ASC(ESI-7):G0T04350 
4335 IFES=CHRS(13)THENRETURN 

4340 FORRF=PTOP—7*22STEP—22:POKERF,PEEK(RF)OR128:NEXT 


4345 60T04300 
4350 L(H)»ASC(ES)—4B 
4359 RETURN 

6000 A»4096+20*22+45+SD 
6005 E»INT(M/2) 

6010 F»W—(E*2) 

6015 Q»AiF0RY=lT08sQ»Q-22:P0KEQ,32:NEXT 
6018 IFE=0ANDF»OTHENRETURN 


6020 IFE=OANDF=1THEN6070 
6030 FORT»lTOE 
6040 A=A—22 
6050 POKEA,160 
6060 NEXT 

6070 IFF»1THENA»A—22:POKEA,98 
6080 RETURN 


7000 DATA"_SNARE","_CYMBEL","_BASS1“,"_BLOCKS","_BASS2" 


30000 RESTORE 

30010 READA:B=B+A:X=X+1:IFX<327THEN30010 
30020 IFB< >3B036THENPRINT"FEHLER IN DATAS!"s END 
30025 PRINT"DATAS OK!" 

30030 RESTORE:X=8192+256 

30040 FORT»1T0327:READA:B=B+A:POKEX,As X=X+1:NEXT 
30050 END 

32000 DATAI72,255,32,185,23,16,201,81,208,5,169,2,141,16,145,185,45,16,201,81 

32001 DATA208,5,169,224,141,13,144,185,67,16,201,81,208,5;,169,254,141,13,144 

32002 DATA185,89,16,201,81,208,6,173,254,32,141,11,144,185,111,16,201,Bl,20B 

32003 DATA5,169,251,141,12,144,185,133,16,201,81,20B,6,173,254,32,141,IO,144 

32004 DATA96,96,245,162,0,189,23,16,41,127,157,23,16,189,45,16,41,127,157,45 

32005 DATA16,189,67,16,41,127,157,67,16,189,89,16,41,127,157,89,16,1B9,111,16 

32006 DATA41,127,157,111,16,189,133,16,41,127,157,133,16,232,224,12,208,203,96 

32007 DATA234,234,234,234,234,234,234,234,174,255,32,189,23,16,9,128,157,23, 16 

32008 DATA1B9,45,16,9,12B,157,45,16,189,67,16,9,128,157,67,16,189,89,16,9,128 

32009 DATA157,89,16,189,111,16,9,128,157,111,16,189,133^16,9,128,157,133,16,96 

32010 DATA234,234,234,234,234,234,234,234,234,234,234,234,48,135,56,143,9,147 

32011 DATA1,151,49,159,10,163,2,167,50,175,58,179,11,183,3,187,51,191,12,195 

32012 DATA4,199,52,201,60,203,13,207,53,209,61,212,14,215,6,217,54,219,62,240 

32013 DATAO,0,162,0,189,208,33,205,197,0,240,7,232,232,224,46,208,242,96,232 

32014 DATA189,208,33,141,254,32,96,144,96,245,245,245,245,1,162,0,173,10,144 

32015 DATA201,0,208,25,173,11,144,201,0,208,1B,173,12,144,201,0,208,11,173,13 

32016 DATA144,201,0,208,4,142,31,34,96,162,1,76,62,34 
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tips & tricks. 


Tips & Tricks für den VC-20 


Maschinencode-Routinen: 

Schneller Farbwechsel in Maschinensprache 

10 for i=o to 9: read a: poke 7670+i,a: next 
20 data 162,255,138,141,15,144,202,208,249,96 

Die Routine wird mit 'sys 7670’ aufgerufen. 

Sie zeigt im Bruchteil einer Sekunde alle 255 Farbkombinationen. Sie ist so schnell, daß 
das menschliche Auge sie kaum wahrnimmt. Deshalb ist sie nur in einer ‘for/next’- 
Schleife wirkungsvoll. 

Programmschutz in Maschinensprache 

10 for i=7650 to 7675: read a ; poke i, a: next 
20 data 169,116,141,50,3,169,196,141,51,3,169,0,141,145,2 
30 data 169,2,141,30,145,169*194,141,20,3,169,253,162,34 
40 data 141,7,3,142,6,3,96 

Diese Routine wird mit ‘sys 7650’ aufgerufen. 

Folgender Schutz der Programme wird dabei aktiviert: 

a) Saveschutz 

b) Umschaltung zwischen Groß/Kleinschrift abschalten 

c) RESTORE-Taste abschalten 

d) STOP-Taste abschalten 

e) Listschutz (bei LIST wird ein RESET ausgelöst) 


Die USR-Funktion 

Viele VC-20 Benutzer werden sich sicher 
schon gefragt haben, wozu eigentlich die 
USR-Funktion gut ist. Sobald man sie auf¬ 
ruft, wird ein ILLEGAL QUANTITYCRROR 
angezeigt. Ein Aufruf dieser Funktion führt 
zum Sprung des Interpreters in die Spei¬ 
cherstelle Null. Dort ist der Sprungbefehl 
JMP untergebracht. In den Speicherstel¬ 
len 1 und 2 steht die Adresse, zu der beim 
Aufruf hingesprungen wird. Wenn man 
nun durch Aufruf der USR-Funktion zu ei¬ 
nem Maschinenunterprogramm springen 
will, sollte man folgendermaßen Vorge¬ 
hen: 

Hstaitadresse) (RETURN) 

poke 2,int(s/256) (RETURN) 

poke 1, s-peek(2)nwl 256 (RETURN) 

Gibt man nun z. B. a=usr(1) ein, wird zur 
Startadresse gesprungen. Die Zahl in 
Klammern hat keinerlei Funktion, muß je¬ 
doch angegeben werden. Der Vorteil der 
Funktion ist, daß man mit ihr erheblich 
schneller ein MC-Unterprogramm an- 
springen kann, als dieses mit einem SYS- 
Aufruf möglich gewesen wäre. 


poke 43,x:poke44,y 

poke 55,x:poke56,y 

poke 120,2 
poke 188.x 
printpeek(197) 

fp@ck(162) 

poke 109,1 
poke 109,0 

poke 211,x:pskp214,y: 
sys 58640:prM .tut“ 
pol» 774.x 


poke 775,x 


poke 800,120 


POKEVliste für VC-20 


= DerBasicanfang wird verschoben und 
zwar nach x+256maly 
= Das Basicende wird verschoben und 
zwar nach x+256 mat y 
= Befehlsverweigerung 

— reguliert den Inhalt des Tastaturbuffers 
= enthält den codierten Wert einer 

gedrückten Taste (normal = 64). 

= ergibt eine zufällige Zahl zwischen 
OÄ 100 

= Wirkung wie RVS ON 
= Wirkung wie RVS OFF 

= 'print aV; positioniertes Ausdrucken 

— Listschutz: 

x=01 listet Zeilennummern 
x—27 listet Unsinn 
x=26 listet normal 
= Listschutz: 
x=1 Systemabsturz 
x—200 1 Error 1 nach der ersten Zeile 
x=199 listet normal 
= Stop/Restore gesperrt 


poke 788,194 

pake 792,2 

poke 777,1 

pake 777,199 

pake 857,128 

pake 794,9:poke 795,9 

pake 804,0:peke 895,0 

peke810,9:peke911,9 

pake 818,116:pefce 819,198 

pake 816,0:peke 817,0 

?pE(152) 

?pE(153) 

?pE(154) 

?pE(183) 
pake 646,x 

?pE(786)+256malpE(789) 

?pE(653) 

sys 64817 

sys 85499 

sys 65511 

sys 58234 

weit 653,4 

walt 653,1 


= Stop gesperrt 
= Restore gesperrt 
- Cursor 'HOME nach jedem Befehl 
= wieder normal 
= Commodore-Taste gesperrt 
= Kein VPEN 1 mehr möglich 
= Kein 'INPUT 1 mehr möglich 
Kein ’GET* mehr möglich 
= SAVESCHUTZ 
=LOADSCHUTZ 
= Anzahl der offenen Files 
= Eingabegerät (normal 0) 

= Ausgabegerät (CMD); normal 3 
= Länge des Filenamens 
= Zeichen farbe regulieren 
= Hardwareinterrupt (IRQ) 

= Flag für Shift/C TRL 
= Schnellreset 
= setzt ti auf null 
= schließt alle Fites * 

= Sprung in die NMI-Routine 
= wartet auf CTRL 
= wartet auf SHIFT 
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Programme_ 

„Charly der Raketenmann“ fliegt mit seinem Raketenrucksack durch die Lüfte und versucht seinen Auf¬ 
trag zu erledigen. Ein Programm für den VC-20 Grundversion, das uns zeigt, daß selbst bei diesem Sy¬ 
stem die Programmierung in Multicolorgraphic erfolgen kann. 


Charly dar Rakatanmann vc-20 Grandversion 


Charly und sein Raketenrucksack erhal¬ 
ten den Auftrag, die Dynamitstangen ein¬ 
zusammeln, die ein Amokläufer auf dem 
Bildschirm verteilt hat. Durch Druck auf 
den Feuerknopf zünden Sie den Raketen¬ 
rucksack und Charly kann nun zwischen 
den einzelnen Etagen hin- und herfliegen. 
Aber Charly muß darauf achten, daß er 
nicht mit den Luftminen kollidiert. Ist es 
Charly gelungen zehn Dynamitstangen 
einzusammeln, erreicht er den nächsten 
Level. In diesem Level gibt es noch mehr 
Luftminen und der Flug wird erheblich 
schwieriger. Insgesamt gibt es sechs ver¬ 
schiedene Levels, und man muß schon 
ganz schön gut und schnell reagieren, um 
alle Levels spielen zu können. Achten Sie 
bitte auch auf den begrenzten Energievor¬ 
rat Ihrer Rakete. 


Teil 1: 



'Dufte' 

Grafik 


Gesteuert wird „Charly der Raketenmann“ 
mit dem Joystick. Die Programme müs¬ 
sen nacheinander auf Kassette gespei¬ 
chert werden und zurückgespult werden. 
Jetzt SHIFT/RUNSTOP drücken und alle 
Programmteile werden geladen. 

Wettfaufmit der Zeit! 


1 DAT A162,0,1B9,132,2B,141,12,144,201 
,O,240,2,232,96,76,216,29 

2 FORT=7640TD7656:READA:PQKET,A:NEXT 

4 F0RT=7300T07319:READA:POKET,A:NEXT 

5 PRINT"UCATCH ALL DYNAMIT!" 

6 PRINT"BJBUT BECAREFUL WITH THEAIR—MINES 

30 DATA225,225,225,228,231,231,228, 

231,232,235,240,235,231 

31 DATA225,235,232,231,228,225,0 
50 PRINT' TrB ":PQKE19B,1:POKE&31,131 


Teil 2: 


1 PRINT"US***** CHARLY *«#**" 

2 PRINT“ HBJCOPYRI GHT BY K.N. SOFT“ 

3 PRINT“HFOR UNEXPANDED VIC-20" 

4 PRINT"fiflWRITTEN BY KAROLJ NADJ" 

5 DATAl69,24,141,15,144,169,25,141,15,144 

6 DATA173,197,0,201,39,240,3,76,176,29,96 

10 F0RT=7600T07620sREADA:POKET,A:NEXT 

11 PRINT"PRESS Fl TO START" 

12 SYS7600: PRINT M «n " :POKE19B, 1 : P0KE631,131 


Teil 3: 


20 F0R1 = 6144 TO 6610 
22 DATAO,30,32,76 
24 DATA06, 74 ,34,2B 
26 DATA62,34,116,76 
28 DATA6B,136,136 
30 DATA136,60,10,34 
32 DATA50,44,66,66 
34 DATA252,48,76,66 
36 DATA66,12B,128 
38 DATA72,56,6Ü,18 
40 DATA33,33,33,65 
42 DATA66,252,63,16 
44 DATA32,60,32,64 


: READDC : F'QKE I , DC s NEX T1 

46 DATA64,252,2B,19 
4B DATA32,60,32,64 
50 DATA64,192,2B,34 
52 DATA64,64,156,132 
54 DATA136,112,33 
56 DATA33,66,114,7B 
5B DATA132,132,132 
60 DATA14,4,0,8,8 
62 DATA16,16,56,3 
64 DATA1,2,34,66,6B 
66 DATA36,2B,32,35 


66 DA fA76,112,112 
70 DATA140,132,130 
72 DATA64,64,64,12B 
74 DATA128,128,224 
76 DATA2B,33,35,86 
78 DATA74,66,132,132 
80 DATA132,32,34,B4 
82 DATA76,68,136,136 
B4 DATA136,56,68,66 
86 DATA130,132,132 
BB DATA72,112,56,36 
90 DATA66,66,114,140 
92 DATA12B,128,56 


94 DATA6B,66,130,132 
96 DATA14B,136,116 
9B DATA56,36,66,114 
100 DATA76,136,132 
102 DATA132,28,34 
104 DATA65,65,56,4 
106 DATA130,126,56 
108 DATA14,16,16,16 
110 DATA32,32,32,32 
112 DATA66,68,6B,132 
114 DATA136,200,56 
116 DATA66,66,66,132 
118 DATA132,132,120 


120 DATA4B,33,33,66 
122 DATA66,66,132 
124 DATA1BO,252,130 
126 DATA130,6B,56 
12B DATA56,68,130 
130 DATA130,68,68 
132 DATA40,16,16,32 
134 DATA32,32,224 
136 DATA2B,4,4,24 
138 DATA96,128,254 
140 DATAÖ,60,32,32 
142 DATA32,32,32,60 
144 DATAO,110,112 
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Teil 3: 


Programme. 


146 DATA16, 60, 16,16 
140 DATA12,0,60,4 
150 DAT A4,4,4,4,60 
152 DATA0,0,0,0,42 
154 DATA20,0,0,0,16 
156 DATA32,127,32 
150 DATA16,0,0,0,0 
160 DATAO,0,0,0,0 
162 DATAO,0,0,0,0 
164 DATA0,0,0,0,0 
166 DATAO,0,0,0,36 
160 DATA36,36,0,36 
170 DATA36,126,36 
172 DATA126,36,36 
174 DATAO,0,60,10 
176 DATA2B,40,30,0 
178 DATAO,70,30,16 
100 DATA8,100,98,0 
102 DATAO,50,60,74 
184 DATA48,72,72,48 
106 DATAO,O,0,0,0 
180 DATA16,8,4,0,4 
190 DATA0,16,16,16 
192 DATA0,4,0,32,16 
194 DATAB,B,8,16,32 
196 DATAO,8,42,28 
190 DATA62,20,42,8 
200 DATAO,0,0,8,62 
202 DATA0,8,O,16,0 
204 DATAB,0,0,0,0 
206 DATAO,O,0,0,0 
200 DATA126,0,0,0 
210 DATAO,24,24,0 
212 DATAO,0,0,0,0 
214 DATA64,32,16,0 
216 DATA4,2,0,126 
218 DATA9B,02,74,74 
220 DATA70,70,126 
222 DATA4B,16,16,16 
224 DATA16,16,16,124 
226 DATAO,124,4,4 
220 DATA124,64,64 
230 DATA124,248,8 
232 DATA8,56,56,8 
234 DATAB,248,64,72 
236 DATA72,72,124 
238 DATA8,B,0,62,32 
240 DATA56,4,4,4,4 
242 DATA56,112,64 
244 DATA64,64,92,60 
246 DATA68,124,124 
240 DAT A4,4,8,20,0 
250 DATA0,0,126,66 
252 DATA66,126,66 
254 DATA66,66,126 
256 DATA124,60,68 
258 DATA124,4,4,4 
260 DATA4,0,0,0 
262 PRINT"[XH":P0KE19B t 1 



7 DATA255,143,143,249,249,143,143,255 

10 FORT=6512T06519sREADAs POKET,As NEXT 

11 F0RT=6664T06663+3*8sREADAsPOKET,AsNEXT 

12 F0RT=716BT07202s READAs POKET,A s NEXT 

14 FORT=6424T06423+1*8:READAs POKET,A s NEXT 

15 PR I NT » m* » s POKE 198,1s P0KE631,131 


Teil 5: 


1 P0KE55,0:P0KE5&,24 » P=0s PKT=0: LE=1:AN=0 

20 PGKE36B69,254:P0KE36878,20:P0KE36879,8 

21 PRINT'Ll^RESS Fl Tü START" 

22 P0KE7601,8:POKE7606,9sSYS7&00 

26 A=7680+22*Y+X i PR INT 11 Li" 

27 X-19eY=13iQ=67*EE=2000: 

100 G0SUB1000 

101 A=76B0+22*Y+X*B1=PEEK<A>sB2=PEEK<A+22> 

102 POKEA 1 65s POKEA+22,Q 

103 SYS716B 

104 IFPEEK <251>=140THENP0KEA,32:POKEA+22,32sX=X-1:Q=67 

105 IFPEEK<251)=2BTHENPOKEA,32:POKEA+22,32:X=X+1:Q=66 

106 IFPEEK<252)=OTHENGDT0400 

107 IFPEEK <A+44)=320RPEEK <A+44)=42ANDSP=OTHENPOKEA,32:Y=Y+1 

108 SYS7642 

201 PRINT» taMHKKKKHWeTOittKBiBBMg^ NERBIE ";EE; " " 

202 prtnt»»;LE 
205 IFB1=420RB2=42THEN2000 

300 IFPEEK<A-1)=219THENX=X+1 


!PDKE631,131 


308 

400 

401 

402 
s BP 1 

410 

411 

500 

501 
700 

996 

997 

998 

999 


305 IFB1=460RB2=46THENPKT=PKT+1s AN=AN+1 

306 IFPEEK(A-l)<>320RPEEK(A+l)<>32ANDPEEK(A-l)<>46THEN999 
IFPEEK(A)=460RPEEK <A+22)=46THENPKT=PKT+1 

IFPEEK <A-22)< >32ANDPEEK(A-22)< >46ANDPEEK(A-22)<>42THEN999 
IFPEEK <252)=OTHENSP=l 

IFSP=1THENPOKEA+22,32s V=V+1:Y=Y-1:IFV=3THENV=0 s POKEA,32 s V=V+1sIFV=3THENY-Y+1 
=OsV= 


IFEE<=0THEN2000 
SYS7642 

IFSP=1THENEE=EE-1O 

IFB1=420RB2=42THENG0T02000 

IFAN >=1OTHENLE=LE+1s P=0sAN=Os GOTO100 

IFPEEK <A+44)< >32THENP0KE36877,0 

IFSP=1THENP0KE36877,200 

SP=0 

GOTOIOO 


1000 PRINT ,, 0B*##################### 1 '; 

1001 PRTWT" mii>IH»»W»» llft ,, S 

1002 PRiNT»*fc fct»im s 

1003 PRINT H # WPPfcPPPP >P » P>PW»*tt , ’S 

1004 PRINT" 


1005 pp t mt » HmmMmmmmmmmmm+munntm »s 

1006 PRINT" 


1007 PRINT <> *##*#iHUftU^#***##i»# 11 ; 

1008 PRINT 1 
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..Werkstatt 




1009 PR 1 NT " « >»»»»»»»»»»1# » ; 

1010 PR 1 NT " 11 ; 

lon pr i nt■■ ■■ ? 

1012 pr i nt ■■ ■■. 

1013 PR I NT" ■■. 

1014 PR I NT '■ # WIM»» ■■ ■ 

1015 PRINT"#*####**#*####**###*##" 5 

1016 PDKE3687B,20:P0KE646,10sIFP=1THEN1026 

1017 F0RE=1T020 

1018 S=INT(RND (1)#15)+1:T=INT(RND(1)*15)+6 

1019 IFPEEK(7680+22*S+T)< >32THEN1018 

1020 P0KE7680+22*S+T,46:P0KE76B0+22*S+T+30720,lOsNEXT 

1021 P0KE646,15 

1022 F0RE=1TO10+LE*2 

1023 S=INT(RND(1)*15)+1sT-INT(RND(1)*15)+1 

1024 IFPEEK(76B0+S*22+T)=35THEN1023 

1025 PÜKE7680+S*22+T,42:P0KE76B0+S*22+T+30720 f 7:NEXT 

1026 P=1:RETURN 

2000 PRINT"U3GAME OVER " s P0KE36877,0 

2001 PRINT"ENERGIE ";EE 

2002 PRINT"TOTAL SCORE ";(2000-EE)*PKT 

2003 P0KE7601,8sP0KE7606,15:P0KE3687B,O:SYS7640: 
SYS7600:G0T01 


Werkstatt: 



Der VC-20 besitzt wie viele andere Com¬ 
puter auch die Möglichkeit, Interrupts zu 
steuern. Zuerst einmal zur Bedeutung die¬ 
ses Wortes: Interrupt kommt aus dem 
Englischen und bedeutet soviel wie ‘un¬ 
terbrechen’. Der Computer ‘unterbricht’ 
auch ca. 60 mal in der Sekunde seine Tä¬ 
tigkeit und schreibt z. B. die Systemuhr 
fort, läßt den Cursor blinken usw.. Wenn 
wir nun den Computer dazu bringen wol¬ 
len, zu einer eigenen Interrupt-Routine zu 
springen, muß man 


In eigener Sache: 


Wenn auch Sie Ihre selbstentwickelte 
Software unseren Lesern vorstellen 
möchten, senden Sie uns 

• einen Datenträger (Kassette/Diskette) 

• ein LiSting (nicht unbedingt erforderlich) 

• eine Programmbeschreibung 

• einen ausreichend frankierten 
Rückumschlag 


1. den IRQ-Interrupt abschalten; 

2. in die Speicherstellen 788,789 Low- und 
High-Byte schreiben 

(Startadresse des MC-Programmes); 

3. das Maschinenprogramm schreiben 

4. Interrupt (IRQ) wieder anschalten; 

In der Praxis sieht das folgendermaßen 
aus: 


Die Hintergrund- und Rahmenfarben 
wechseln ständig. 

Dabei kann man Programme schreiben, 


1. IRQ abschalten mit MC-Befehl 
‘SEI’ 

2. Von Maschinensprache aus 
Lowbyte und Highbyte in 788, 
789 einpoken 

3. Interrupt anschalten mit'CU’ 


Damit wäre das ‘Ladeprogramm’ erzeugt 
Aber halt, bloB noch nicht starten! Der 
Computer wird sofort nach dem Aufruf mit 
SYS ‘Startadresse’ dasselbe wie bei Run/ 
Stop-Restore ausführen, da unser Ma¬ 
schinenprogramm noch nicht eingepoket 
ist. Dies wird jetzt nachgeholt Aber nun 
dürfen Sie natürlich nicht den MC-Befehl 
RTS ausführen lassen, denn damit würden 
Sie alle anderen Interrupts unterbinden 
und der Computer würde aussteigen. Also 
nehmen Sie statt RTS erst einmal den 
Sprungbefehl ‘J MP’ dezimal, also 76. Nun 
schreiben Sie in die Speicherstellen nach 
diesem Befehl Low- und Highbyte der nor¬ 
malen IRQ-Routine. 

Diese wird ermittelt durch: ?pE(788) ft 
i»E(789). 

Also poken Sie gleich: poke low, peekf788):- 
poke high,peek(789). 

Wenn Sie nun das Ladeprogramm starten, 
werden Sie sehen: Es läuft! 

Aber die Routine darf nur recht kurz sein, 
da sonst die rechnerinterne Uhr verlang¬ 
samt werden würde. Dies könnte einen 
Absturz des Computers zur Folge haben! 
Also teilt man die Routine am besten in 
kleine Einzelstücke. 

Jetzt noch ein Praxisbeispiel: Die Farben 
des Bildschirms wechseln ständig. 


editieren usw.. Jetzt erkennen Sie sicher 
die nahezu unbegrenzten Möglichkeiten 
der Interruptprogrammierung. 


• 

10 for i=o to 12: reada : poke 7168+i,a: next: rem Lader 

• 


20 for i=o to 3: reada : poke 7424+i,a : next: rem Prg. 


• 

30 poke 7428,peek(788):poke7429,peek(789) 

• 


40 data 120,169,29,141,21,3,169,0,141,20,3,88,96,206,15,144,76 


• 

50 sys 7168 

• 


40 


©©ffl&piPlte mlb 
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6502 -Assembler-Kurs 

Teil 9 _ 

ln unserer letzten Ausgabe haben wir die Funktionsweise eines Assemblers kennengelemt Jetzt wollen wir den Aufbau eines As- 
semblerlistings durch das nachfolgende Beispiel verdeutlichen. 

llnsflr erstes Assembler-Programm: 

Das nachfolgende Listing demonstriert die Arbeitsweise des CMP-Befehls: 

AUFRUF PROFI—ASSEMBLER 


10 SYS36864 ; 

30 | .... BEISPIEL FUER CMP-BEFEHL •••* 
40 $ 

20 - 40 Dokumentation (gekennzeichnet mit so .opt p,oo 

60 | 

Befehl zur Bildschirmausgabe und Objekt- 70 *=49152 

_i-l A Wrüoco SO S 


Beschreibung der einzelnen Zeilen: 

10 Start des Assemblers 


50 


code an Original-Adresse 
60 Dokumentation 

70 Definierung der Startadresse 

80 Dokumentation 

100-190 Assembler-Listing mit Dokumentation 
1000 


Kennzeichnung „Ende des 
Assembler-Listings“ 

1110 Basic-Zeile;Bildschirm löschen und 
MC-Programm auf rufen. 

Ändert man die Zeile 50 wie folgt, wird das Listing auf einem Drucker ausgegeben: 

50 .OFT PI ,00 

Ausdruck auf einem Printer: . ***« Beispiel fuer cmp-befehl «« 

50: 

70: 


80 $ 

100 START LDA #20 
110 CMP #21 

130 LDA #0°;ZEICHEN AUF DEM SCHIRM 

AUSGEBEN 

140 STA 1024 
1£>0 RTS 

170 PLUS LDA #1 ;ZEICHEN 'A' AUF DEM 

SCHIRM AUSGEBEN 

180 STA 1024 
190 RTS 
1000 .END 

1010 PRINT"Li":SYS 49152 


cooo 




* 

.□PT 

PI *00 

cooo 




5 

#= 

49152 

cooo 

A9 

14 


START 

LDA 

#20 

C002 

C9 

15 



CMP 

#21 

C004 

BO 

06 



BCS 

PLUS 

C006 

A9 

00 



LDA 

#0 

C008 

SD 

OO 

04 


STA 

1024 

COOB 

60 




RTS 

#1 

COOC 

A9 

01 


PLUS 

LDA 

COOE 

SD 

00 

04 


STA 

1024 

C011 

60 




RTS 



I ZEICHEN f @* AUF DEM SCHIRM AUSGEBEN 
■ ZEICHEN *A*. AUF DEM SCHIRM AUSGEBEN 









kurs 


Funktion des Programmes: 

Der Akkumulator wird mit dem Wert 20 geladen lind mit dem Wert 21 verglichen. Wird durch den Vergleich das Cariy-Flag gesetzt, 
springt der Computer in Zeile 170, wo der Akkumulator mit dem Wert 1 (Bildschirmcode für A) geladen wird. Wird das Carry-Flag 
gelöscht wird der Akkumulator mit 0 (Bildschirmcode für Schnecke) geladen. Anschließend legt der Rechner den Akkumulatorinhalt 
in Adresse 1024 ab. Da ab Adresse 1024 der Bildschirmspeicher beginnt wird das Symbol in der linken oberen Ecke sichtbar. 

An dieser Stelle werden wir die alphabetische Auflistung aller Befehle weiterführen und anhand von kleinen Assemblerprogrammen 
demonstrieren. Um nicht jedesmal die Assembler-Kopfzeilen wiederholen zu müssen, beginnen wir unsere Beispiel-Listings immer 
ab Zeile 100. Die Zeilen 10 bis 80 müssen aus unserem oben abgedruckten Beispiel-Usting entnommen werden. 


INX Increment Memory by One 


(Inkrementiero Index Register X um 1) 


Dieser Befehl besitzt die gleichen Eigenschaften wie der Befehl INC, mit der Ausnahme, daß hier nur dasX-Register beeinflußt wird. 
Oft wird dieser Befehl zum Erhöhen eines Schleifenzählers benutzt. 

HEX Adressierung Bytes Syntax 7 6 5 4 3 21 0 


C8 


Impliziert 


1 


DEX 


NV BDIZC 


Beispiel als Assemblerlisting: 

100 ;Zeichensatz des Commodore ausgeben 
110 ; 

120 VIDEO = 1024 ;Anfangsadresse des 
Bildschirmspeichers 

130; 

140 START LDX #0 ;Zaehler und Zeichencode 
150 LOOP TXA; Zaehler als Zeichen an Akku 


160 STA VIDEO,X ;Zeichen in Bildschirmspeicher 

170 INX ;Zaehler um 1 erhoehen 

180 BNE LOOP ;naechste Zeichen 

190 RTS ;Ruecksprung nach Basic 

200 .END 

210 SYS 49152 


BILDSCHIRM SPEICHER TABELLE 


Das oben aufgeführte Beispiel gibt alle 
255 Zeichen des Commodore-Zeichen- 
satzes auf dem Bildschirm aus. Der Befehl 
INX wird für zwei Funktionen verwendet: 


1. als Zähler von 0 bis 255, 

2. als Bildschirmcode 


Um den Ablauf des Programmes genauer 
zu verstehen, muß man die Speicherbele¬ 
gung des Bildschirmes kennen. 

Wir haben Ihnen diese in einer Skizze gra¬ 
fisch dargestellt. 

sh. nebenstehende Bildschirm-Speicher-Tabelle 


1IN 

r 

irr* 


IW 

s 

litt 

m 

\m 

ii» 


In der Tabelle ist sehr leicht die Aufteilung 
der Speicherstellen in Spalten und Zeilen 
zu erkennen. Um beispielsweise in Zeile 4 
und Spalte 4 den Buchstaben „A“ zu brin¬ 
gen, speichert man einfach den Bild¬ 


schirmcode für A in die Speicherstelle 
1147. 

Nun, das hört sich einfach an, aber wie ist 
der Bildschirmcode für das ASCII-Zeichen 
„A“? 


Die nachfolgende Tabelle gibt uns auch 
hierüber Auskunft: 

sh. Bildschirm-Code-Tabelle auf der nächsten 
Seite 


Wir werden uns in einem der nächsten Teile noch näher mit dem Bildschirm beschäftigen. 

INY Increment Index Y by One (Inkrementiere Index Register Y um 1) 

Der Befehl INY entspricht dem INX Befehl mit der Ausnahme, daß hier das Y-Register beeinflußt wird. 
HEX Adressierung Bytes Syntax 


76543210 
NV BDIZC 


C8 


Impliziert 


1 


INY 


42 
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BILDSCHIRM CODES 


kurs_ 


Satz 1 

Satz2 

Poke 

Satz 1 

Satz 2 

Poke 

Satz 1 Satz 2 

Poke 

Satz 1 

Satz 2 

Poke 

Satzl 

Satz,2 

Poke 

Satzl 

Satz 2 

Poke 

@ 


0 

V 

V 

22 


44 

B 


64 

0 

V 

86 

Q 


108 

A 

a 

1 

W 

w 

23 

- 

45 

0 

A 

65 

□ 

W 

87 

B 


109 

B 

b 

2 

X 

X 

24 

. 

46 

CD 

B 

66 

ffl 

X 

88 

El 


110 

C 

c 

3 

Y 

y 

25 

/ 

47 j 

B 

C 

67 

□ 

Y 

69 

□ 


111 

D 

d 

4 

Z 

z 

26 

0 

48 

B 

D 

68 

ffl 

Z 

90 

GB 


112 

E 

e 

5 

[ 


27 

1 

49 

□ 

E 

69 

EB 


91 

B 


113 

F 

f 

6 

£ 


28 

2 

50 

□ 

F 

70 

80 


92 

B 


114 

G 

9 

7 

] 


29 

3 

51 

D 

G 

71 

CD 


93 

ffl 


115 

H 

h 

8 

t 


30 

4 

52 

□ 

H 

72 

0 

a 

94 

D 


116 

1 

i 

9 

4— 


31 

5 

53 

B 

1 

73 

H 


95 

C 


117 

J 

j 

10 

[ SPACE 


32 

6 

54 

□ 

J 

74 

| SPACE ] 

96 

□ 


118 

K 

k 

11 

! 


33 

7 

55 

□ 

K 

75 

n 


97 

n 


119 

L 

1 

12 

•* 


34 

6 

56 

□ 

L 

76 

a 


98 

o 


120 

M 

m 

13 

# 


35 

9 

57 

S 

M 

77 

n 


99 

u 


121 

N 

n 

14 

$ 


36 

: 

58 

0 

N 

78 

□ 


100 

□ 

0 

122 

0 

0 

15 

% 


37 

■ 

59 

□ 

0 

79 

□ 


101 

E 


123 

P 

P 

16 

& 


38 

< 

60 

□ 

P 

80 

B 


102 

D 


124 

Q 

q 

17 

- 


39 

= 

61 

■ 

Q 

81 

□ 


103 

El 


125 

R 

r 

18 

< 


40 

> 

62 

□ 

R 

82 

H 


104 

,D 


126 

S 

s 

19 

> 


41 

? 

63 

0 

S 

83 

B 


105 

S 


127 

T 

t 

20 

• 


42 



D 

T 

84 

□ 


106 




U 

u 

21 

+ 


43 



□ 

U 

85 

1 CB 


107 






Die Codes 128-255 ergeben die invers dargestellten Zeichen der 
Codes 0-127. 


An den freien Stellen in Spalte 2 stimmen die beiden Sätze überein. 

Literatur: 


6502 Microcomputer-Programmierung, Peter Heuer, Hofacker Verlag 64 Intern, Angenhausen, Becker, Englisch, Gerits, Data-Becker Buch 
6502 Programmierung in Assembler, Lance, A. Leventhal 6502/65c02, Christian Persson, Heinz Heise Verlag 



Der Checksummer 1.0 CPC ist das Einga¬ 
behilfsprogramm für alle Programme des 
TRONIC-Verlages. Es wird in Zukunft in je¬ 
der Ausgabe abgedruckt, um auch neuen 
Lesern die Eingabe der Programme zu er¬ 
leichtern. 

Wie funktioniert der Checksummer? 

Tippen Sie zunächst das Programm ab, 
wobei sie darauf achten müssen, daß alle 


Zwischenräume mit dem Listing überein¬ 
stimmen. Auch REM-Zeilen müssen origi¬ 
nal übernommen werden. 

Sichern Sie nun das Programm auf KAS¬ 
SETTE oder DISKETTE bevor Sie es star¬ 
ten! 

Nach dem Speichern wird das Programm 
mit „RUN 65200“ aktiviert. Es erscheint 
die Meldung: CHECKSUMMER AKTIV 
FUNKTIONSTASTE 0. Betätigen Sie nun 
die Taste 0, wird der Checksummeraufge¬ 


rufen. Befindet sich kein zweites zu prü¬ 
fendes Programm im Speicher, wird ein 
Selbsttest durchgefühlt Ertönt am Ende 
dieses Selbsttestes ein Signal, ist das Pro¬ 
gramm noch nicht fehlerfrei. Sie sollten in 
diesem Fall, die auf dem Bildschirm aus¬ 
gegebenen Checksummen mit denen in 
Ihrer Zeitschrift vergleichen und korrigie¬ 
ren. Arbeitet der Checksummer über¬ 
haupt nicht ist der Fehler so gravierend, 
daß Sie das Programm neu eingeben 























































Programme 


müssen. 

Ist Ihr Programm fehlerfrei, entfernen Sie 
bitte die Zeilen 65500 bis 65530 (Delete 
65500 -) um den Selbsttest auszuschal¬ 
ten. Speichern Sie jetzt das Programm mit 
dem Befehl SAVE“CHECKV!“,A auf Kas¬ 
sette oder Diskette. Nur so können Sie es 
später mit MERGE an Ihre Programme an- 
hängen. 

Wie benutzt man den Checksummer? 

Wollen Sie ein Programm mit CHECK 
überprüfen, laden Sie zunächst das zu 


prüfende Programm. Dann geben Sie den 
Befehl MERGE“CHECKV1“ ein, um das 
Prüfprogramm anzuhängen. Wichtig ist 
daß das zu prüfende Programm keine Zei¬ 
lennummer besitzt die größer als 65199 
ist. Jetzt aktivieren Sie den Checksummer 
mit RUN 65200 und Sie können jederzeit 
die Prüfung mit der Funktionstaste 0 über¬ 
prüfen. Vergleichen Sie nun die im Heft 
abgedruckten Prüfsummen mit denen, die 
Ihr Programm ausgibt 
Falls Sie einen Fehler feststellen, müssen 
Sie nicht das Programm neu laden, son¬ 
dern können ihn normal berichtigen und 


dann wieder mit 0 das Check-Programm 
starten. Möchten Sie den Checksummer 
löschen, geben Sie einfach den Befehl 
DELETE 65200- ein. 

Annerkunii zu Checksummer 1.0 CPC: 

Groß-Kleinschreibung beachten! 
Leerzeichen innerhalb einer Zeile müssen 
dem ORIGINAL-Listing entsprechen! 
Leerzeichen am Ende einer Zeile werden 
ignoriert! 

Umgewandelte TOOKEN werden automa¬ 
tisch in den Ursprungswert zurückgesetzt! 
REM-Zeilen müssen eingegeben werden! 


Wer den Checksummer nicht eingeben brächte Bestellnummer: 

keim diesen auch unter der folgenden Bestell- CVS 10K Kassette 10 DM 

nummer beziehen: CVS 10B Diskette 20 DM 


65200 '*** Tronic CPC Chackauuunar **# 
65210 '*** Autor Frank Brall 1985 **« 
65220 ' VERSION 1.0 

65230 KEY 128,"65530 REM TRONIC"+CHR*<13 
>+"run 65250" +CHR*< 13) 

65240 PRINTaPRINT"CHECKBUMMER AKTIV FUN 
KTI0N8TABTE O"iPRINT'END 

65250 CLBiPRINT"Tronie-V*rlag Chockaummo 
r Version 1.0" 

65260 PRINTiPRINTiPRINTiPRINT"<B>ILDBCHI 
RN <D>RUCKER" 

65270 E*-INKEY*aE*-LDWER*(E*)iIF E»-"" T 
HEN 65270 

652B0 IF E*-"b" THEN a-OiBOTO 65310 
65290 IF E4-"d" THEN a-8aB0T0 65310 
65300 BOTO 65200 

65310 ADREB8-368IGCHECK-OiCLSlPRINT4A,"C 
HECK VIiPRUEFBUMMEN■"iPRINT«AiPRINT«A,"Z 
EILENNR.i SUMMEN" 

65320 LAENBE-(PEEK <ADREB8+1> #256) +PEEK(A 
DRESS) 

65330 ZNUM-(PEEK(ADRE8S+3)*256)+PEEK(ADR 
E88+2) 

65340 IF ZNÜM-65200 THEN IF F-0 THEN 654 
80 EL8E PRINT *A, U8INB "#**##"|ZNUMlfiP 
RINT4A,"- "(IPRINT#A t " a " | aPRINT #A, 

U8INB "######"|ZCHECKiF-0aB0TD 654B0 
65350 IF ZNUM-65500 THEN 65510 
65360 ZCHECK—O»FOR 1*0 TO LAENBE-6 


65370 WERT*PEEK <I+ADRE88+4) 

65380 IF WERT -32 THEN 65410 
65390 ZCHECK-ZCHECK+WERT+(I*WERT) 

65400 IF ZCHECK>65535 THEN ZCHECK-ZCHECK 
-655361BOTO 65400 
65410 NEXT I 

65420 IF F-0 THEN ZCHECK1-ZCHECKt ZNUM1-Z 
NUNsADRE 8 B—ADRES 8 +LAENBE 1 F-l l BOTO 65320 
65430 F—OlZNUM2-ZNUH 

65440 PRINT «A V U8IN8 "««*«#"|ZNUM1|aPRIN 
T#A t "-"|iPRINT «A,UBINB "#####"|ZNUM2|iP 
RINT«A t "l"|tPRINT «A,UBIN8 "#»#«««")ZCHE 
CK+ZCHECK1 

65450 8CHECK-8CHECK+ZCHECK+ZCHECK1 
65460 IF SCHECK>65535 THEN 8CHECK-8CHECK 
-65536aBOTO 65460 

65470 ADRE8B—ADREBS+LAENBEiBOTO 65320 
65480 PRINT9A, "-—---- 

.H 

65490 PRINT M* f "BESAMTCHECKSUMME: "8CHEC 
K 

65500 BCHECK-OiA-OiPRINTttAiPRINT4A,"CHEC 
KSUMMER 8ELB8TTE8T !" 1 BOTO 65360 
65510 IF 6CHECK°6207B THEN PRINT4A,"—EN 
DE—" 1 END 

65520 PRINT "FEHLER IM CHECKSUMMER !"iBQ 
UND l t 100,500 
65530 REM TRONIC 


CHECKSUMMER SELBSTTEBT ! 


65200-652101 73781 
65220—65230 i 36739 
65240-652501 11826 
65260-65270» 86096 


65280-652901 53556 
65300-653101 24701 
65320-653301 43B09 
65340—65350 3 74115 


65360-653701 89147 
653B0—65390a 32907 
65400-654101 49578 
65420-654301 28B3B 


65440-65450a 1BB32 
65460-654701 84126 
65480-654901 74923 
—ENDE— 
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KHABR - Invasoren faedrnhen die Erde 


Sie sind der letzte Kampfpilot einer glorreichen und heldenhaften 

Raumflotte, die keinen Gegner fürchten mußte. Dank eines Omega- 
Lasers, die z.Zt stärkste Waffe innerhalb des Universums, waren 
und sind Sie Ihren Gegnern kämpferisch überlegen. Leider hat diese 
Wunderwaffe aber einen erheblichen Nachteil. Nach jeweils vier 
Schüssen müssen Sie eine kurze Feuerpause einlegen, um die Kano¬ 
ne nicht zu zerstören. Achten Sie beim Abschuß der feindlichen In¬ 
vasoren also immer auf die Anzahl der abgegebenen Schüsse. Ist es 
Ihnen gelungen ein KHARR-AUEN zu zerstören, verwandelt sich die¬ 
ser in einen Mutanten der zu Boden stürzt. Dieser Mutant darf aber 
unter keinen Umständen den Boden berühren, da die Druckwelle 
des Aufpralls den eigenen Jäger zerstören würde. Die Steuerung der 
drei Jäger erfolgt mit dem Joystick. 


.Programme. 

Wichtig: Nachdem das 
Programm abgebro¬ 
chen wurde, können 
Sie es mit GOTO 10 
neu starten. Ein Neu¬ 
start mit RUN würde 
zur Fehlermeldung 
„improppor Argu¬ 
ment“ führen. 


1 REH #**#**#*#**###** 

2 REH • DEFENDER • 

3 REH *#****••»**«•*•* 

4 SYMBOL AFTER 237i8YHB0L 230,137,74,2,fl 
,45,4,64,145 

5 HEHORY 69FFF 

6 GOBUB 9000 

9 REH Farban Mt»n 

10 HÖBE OiBDRDER Ol INK 0,0tCL8 

20 INK 1,6iINK 2,24iINK 3,lliINK 4,6,24 
30 INK 5,26iINK 6,15iINK 7,18i6PEED INK 
5,5 

35 INK 8,25iINK 9,16iINK 10,7 
40 REH Jaagar Rächt« 

50 DATA 0,0,0,0,12,12,12,0,44,192,0,0,0, 
192,128,0 

60 DATA 16,192,200,192,0,192,128,0,64,19 
2 , 0 , 0 , 12 , 12 , 12,0 
70 REH Jaagar Link« 

80 DATA 0,0,0,0,0,12,12,12,0,0,192,128,0 
,64,192,0 

90 DATA 192,196,192,32,0,64,192,0,0,0,19 
2,128,0,12,12,12 
100 REM Allen 

110 DATA 0,0,16B,0,0,B4,252,0,0,252,252, 
168,0,184,1B4,16B 

120 DATA 84,252,252,252,0,252,124,168,0, 
80,BO,0,0,160,0,160 
130 REM Mutant 

140 DATA O,8,B,0,0,64,0,0,0,64,0,0,0,192 
,128,0 


150 DATA 0,192,128,0,0,64,0,0,0,64,0,0,0 

, 0 , 0,0 

19^ REH Braphik ainlaaan 

200 RE8T0RE 50ia-6A030 

210 FÜR 1-0 TO 31■READ c 

220 POKE i+a,ciNEXT i 

230 RE8T0RE BOia-a+i 

240 FOR 1-0 TO 31■READ c 

250 POKE l+«,ciNEXT 1 

270 RE8T0RE 110ta-a+l 

280 FOR 1-0 TO 31iREAD c 

290 POKE i+a,ciNEXT 1 

300 RE8T0RE 130ia-a+i 

310 FOR 1-0 TO 31iREAD c 

320 POKE i+a,ciNEXT i 

330 a—StAOOOt REM M-Coda Start adrasse 

340 b-liAOOBi REM Ziel f uar Zaichanauawahl 

350 c-630« d-&50i a-8i70i f «690 

360 REM c—f Warta fuar Zaichanauawahl 

499 REM Bplalfald Aufbau 

500 hac—O 

505 ah-0iaho-0 

510 ac-Oi k— 11iy—12iPOKE b,caahip-3 
515 xaahlar-Oilaval-1 
520 MOVE 1,390iDRAW 640,390,9 
530 PEN BiLOCATE 1,liPRINT"SCORE" iLOCATE 
10,liPRINT"HIGH"iL0CATE 16,liPRINT"SHIP 
S" 

540 LOCATE 1,2iPRINT aciLOCATE 10,2tPRIN 

T haciLOCATE 16,2 iPRINT ahip 

550 MOVE l,365tDRAM 640,365,9 

560 MOVE 1,liDRAW 30,10,10«DRAW 70.5,lOi 

DRAW 120,8,10 

570 DRAW 130,2,1OiDRAW 200,10,10iDRAW 27 
0 | 2|10 

580 DRAW 340,9,10.DRAW 410,1,10.DRAW 420 
16 f 10 

590 DRAW 500,2,10tDRAW 560,IO,10>DRAW 60 
0,3,10 

600 DRAW 640,2,10 
610 LOCATE n, yiCALL a 
620 SOUND 1,0,30,15,1,1,30 
630 SOUND 4,10,30,15,1,1,10 
635 REM Haupt Programm 
640 x-INT (RND*2) +1 
650 IF x-l THEN u—1iul—1 
660 IF *-2 THEN u=20iul—1 
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Programme_ 


670 v«INT<RND*15>+4 

660 IF v<7 THEN vl-1 ELSE vl--l 

690 POKE b,»iLOCATE u,v»CALL * 

700 u2“u*v2»v 
710 u-u+ul»v-v+vl 

720 IF u> m 2Q OR u<=l THEN LOCATE u2,v2»P 

RINT" 11 1 GOTO 640 

730 IF v>22 THEN vl«-l 

740 IF v<S THEN vl«l 

745 CALL 6BD19 

750 POKE b ,ssLOCATE u2,v2sPRINT" 11 
760 LOCATE u v viCALL « 

770 xl»xiyl=y 

775 IF *h-l THEN sho-sho-1»IF sho<-0 THE 
N eh-0 

760 IF JOY (0) AND 4 THEN c-650 

790 IF JOY(0) AND 6 THEN c-630 

800 IF JOY <0> AND 1 THEN IF y>5 THEN y=y 

-2 - 

610 IF JOY(0) AND 2 THEN IF y<22 THEN y- 
y+2 

615 CALL 6BD19 

620 POKE b , c»LOCATE k 1 f yl»PRINT 11 91 
630 LOCATE h v yi CALL * 

835 IF x-u THEN IF y«v THEN GOTO 3500 
840 IF «h-0 THEN IF JOY(O) AND 16 THEN 6 
OTO 2000 
850 ' 

860 zuf«12-l*v»liIF INT <RND*zü-f >+l=i THE 
N GOTO 3000 

870 IF mu-1 THEN GOTO 4000 
900 GOTO 700 

2000 «ho-shO'MiIF ahe>~4 THEN Bh«lishD»6 

2005 IF c=*650 THEN GOTO 2100 

2010 MOVE 355,400-<16*y)+6iDRAW 640,400- 

<16*y>+6,2 

2020 SOUND 1,10,15,7,0,2 
2025 sxpl-0 

2030 IF y-v THEN IF x<u THEN sxpl=l 
2035 sxpll-OsIF mu-1 THEN IF y=vv THEN I 
F k<uu THEN »xpll«l 

2040 HOVE 355,400-<16«y>+6»DRAM 640,400- 
(16*y) +6,0 

2060 IF *xpl-l THEN GOTO 2500 
2065 IF sxpll-1 THEN GOTO 4200 
2070 GOTO 850 

2100 MOVE 320,400—(16*y)+6»DRAW 1,400-(1 
6 *y>+6,2 

2110 SOUND 1,10,15,7,0,2 
2115 sxpl=0 

2120 IF y=v THEN IF x>a THEN expl»l 
2125 expll-OiIF mu»l THEN IF y»vv THEN I 
F x >liu THEN oxpll-1 

2130 MQVE 320,400—(16*y)+6»DRAW 1,400-(1 
6 *y> +6,0 

2140 IF axpl*l THEN GOTO 2500 
2145 IF «xpll=l THEN GOTO 4200 
2150 GOTO B50 

2500 LOCATE u,v»PEN 12»PRINT CHR*<238) 
2510 SOUND 1,5,50,7,0,1,31 
2520 FOR i"1 TO 27»INK 12,iiNEXT i 
2530 FOR i=27 TO 0 STEP-1»INK 12,i»NEXT 
i 

2535 LOCATE u,v»PRINT n " 


2540 IF mu-0 THEN*mu=lsvv B viuu«u 
2550 PEN 8»LOCATE 1,2» sc-sc+lO»PRINT sc 
2560 ze«hlsr-za*hl*r+ll IF zaehler=10 THE 
N ziehlir»0il*vel»l*v»l+l»GOTO 2600 
2570 GOTO 640 

2600 IF level>«7 THEN levsl-7 

2610 PEN 8» LOCATE 4,10» PR INT "LEVEL 11 1 »vel 

2620 FOR i-1 TO 4tFOR 1=1 TO 26 

2630 INK 0,1»SOUND 1,22,1,7,0, i,31 

2640 NEXT l,i 

2650 INK 0,0»LOCATE 3,10»PRINT" 

ii 

2660 GOTO 640 

3000 IF x >u THEN GOTO 3100 

3010 MOVE 32*u-32,400-<16*v)+6»DRAW 1,40 

0— <16*v)+6,1 

3020 SOUND 2,100,15,7,0,2 
3030 »xpl-OiIF y»v THEN «xpl»l 
3040 MOVE 32*u—32,400-<16*v)+6:DRAW 1,40 
0—(16*v> +6,0 

3050 IF »xpl=l THEN GOTO 3500 
3060 GOTO 700 

3100 MOVE 32*u,400-(16*v)+6»DRAW 640,400 
—(16*v)+6,1 

3110 SOUND 2,100,15,7,0,2 
3120 sxpl-O»IF y-v THEN »xpl-1 
3130 MOVE 32*u,400—<16*v)+6»DRAW 640,400 
— <16*v)+6,0 

3140 IF *xpl-l THEN GOTO 3500 
3150 GOTO 700 

3500 INK 2,24,6»INK 1,6,24 

3510 80UND 1,4,60,7,0,1,31 

3520 FOR i-1 TO 31»S0UND 4,0,5,7,0,2,i 

3530 NEXT i 

3540 INK 1,6»INK 2,24 

3550 ship-ship-1»IF ship-0 THEN GOTO 100 
00 

3560 PEN 8»LOCATE 16,2»PRINT ship 
3570 GOTO 700 
4000 vvl-vviuul—uu 

4010 vv-vv+1iIF vv>23 THEN LOCATE uul,vv 
1» PRINT" 11 »mu-O» vv-O» ua B Os GOTO 3500 
4020 LOCATE uul,vvl»PRINT" " 

4030 LOCATE uu,vv»POKE b,-f»CALL * 

4040 GOTO 700 

4200 PEN 11»LOCATE au,vv»PRINT CHR*<238) 
4210 SOUND 1,4,45,7,0,1,12»FOR i-1 TO 27 
»INK 11,i»NEXT i 

4220 ic-sc+20:LOCATE l,2sPEN SsPRINT sc 
4230 t.OCATE uu,vvaPRINT" "smu*0 
4235 /v=0buu0 
424C (30T0 700 

8994 HEM Multi-Color M-Cads 

9000 • i -6AOOO 

9005 r EESTORE 9040 

9010 vOR i-0 TO 39»READ c 

9020 POKE *+i,c 

9030 NEXT i 

9040 DATA 6cd,67B,6bb,625,62d,6cd,61«,6b 
c,611,608 

9050 DATA 601,630,6*0,60«,677,603,623,60 
m ,677,603,623,60*,677,603,623 
9060 DATA 60«,677,603,6c5,601,6-fd,607,60 
9,6c1,615,6c2,60d,6*0,6c9,201,201 


46 




1/86 







Programme 


9070 ENT 1,5,20,1,10,15,2,5,-10,3 
9075 ENT 2,4,30,2,6,15,1,3,30,1 
9080 i 

9090 i 

9100 MODE 15BORDER 12iINK 0,1s INK 1,6 
9110 LOCATE 14,1»PEN 1iPRINT H D E F E N D 
E R" 

9120 PRINT H Di« Invasoren vom Planeten KH 
ARR heben die Erde besetzt M 
9130 PRINT H Du bist eis letzter Kampfpilo 
t der Reue-flotte unterwegs um die Inves 
oren zu vertreiben." 

9140 PRINT"Dein Omega-Leser ist die stee 
rieste Waffedie zur Zeit im Universum ver 
fuegbar ist" 

9150 PRINT"Doch er het einen Nachteil.Ne 
ch jeweils 4 Schuessen muss eine kurtze 
Feuerpause eingelegt werden um ihn nicht 
zu Zersto-ehren.Dein Auftrag ist es so 
viele Invasoren wie moeglich abzusc 

hissen 11 

9160 PRINT lr Doch Vorsicht,hast du eines d 
er KHARR- ALIENS zerstoehrt so verwende 

lt er sich in einen MUTANTEN der zu 

Boden feellt 11 

9170 PRINT"Dieser MUTANT darf unter kein 
en Um- staenden der Boden beruehren 


CHECK VlaRRUEFBUMMENt 


ZEILENNR 
1 - 
3- 

■ a- : 

9- 

20 - 

35- 

50- 

70- 

90- 

110 - 

130- 

150- 

200 - 

220 - 

240- 

270- 

290- 

310- 


I GUMMEN 
2b 14399 
4i 36657 
6 i 2653 
10a 17224 
30t 32832 
40i 19070 
601107108 
80 i 55501 
lOOi 64412 
120i 6441B 
140i 41266 
199» 53623 
210 a 22809 
230a 36948 
250» 33190 
280a 32164 
3001 37148 
320» 33190 


330- 

3408106077 

B15- 

B 20 i 

29318 

2640- 

2650a 

11302 

350- 

360» 

96805 

830— 

835a 

56941 

2660- 

SOOOi 

13622 

499- 

500a 

20173 

840- 

850a 

39730 

3010- 

3020a 

37075 

505- 

510a 

25508 

860- 

870a 

51419 

3030- 

3040a 

84625 

515- 

5201 

36900 

900- 

2000 a 

27932 

3050- 

30601 

17541 

530- 

540a 

9645 

2005- 

2010 a 

24176 

3100- 

3110 a 

32616 

550- 

560a 

33975 

2020 - 

2025a 

8869 

3120- 

3130a 

80167 

570- 

5B0a 

38670 

2030- 

2035a 

109670 

3140- 

3150a 

17541 

590- 

600t 

20940 

2040- 

2060i 

30224 

3500- 

3510a 

10313 

610- 

620* 

16025 

2063- 

2070a 

17372 

3520- 

3530a 

27279 

630- 

635t 

18187 

2100 - 

2110 a 

10294 

3540- 

3550a 

60731 

640- 

650a 

40973 

2115- 

2120 a 

68757 

3560- 

3570a 

15503 

660- 

670a 

49093 

2125- 

2130a 

52812 

4000- 

4010» 

59047 

680- 

690a 

69040 

2140- 

2145a 

33664 

4020- 

4030a 

47480 

700- 

710* 

63275 

2150- 

2500a 

24607 

4040- 

4200a 

32254 

720- 

730a 

21696 

2510- 

2520a 

32690 

4210- 

4220a 

35180 

740- 

745a 

16216 

2530- 

2535* 

47382 

4230- 

4235a 

38265 

750- 

760a 

38754 

2540- 

2550a 

48647 

4240- 

8999a 

19387 

770- 

775i 

60579 

2960- 2S70I 

22341 

9000- 

9005a 

4340 

780- 

790a 

35600 

2600- 

2610a 

61047 

9010- 

9020» 

24530 

800- 

010a11BB15 

2620- 

2630a 

37643 

9030- 

9040a 

50978 


da die Druckwelle sonst deinen Jaege 

r vernich- tet. ,a 

9180 PRINT"Du hast drei Jaeger zur Verfu 
egung" 

9190 PR I NT 11 Gest euer t wird mit dem Joysti 
ck» 

9200 PRINT"ALLES KLAR? Taste Druecken" 
9210 CALL fcBBieiCLSiRETURN 
9900 RETURN 

10000 PEN Bl CLSi LOCATE 5, lOi PRINT 11 6AME 0 
VER" 

10010 PEN 9s LOCATE 1,12sPRINT"PUNKTE-"s 
c 

10020 IF sc>hsc THEN hsc»sciLOCATE 1,14» 
PRINT"NEUER HIGH-SCORE" 

10030 SOUND 4,100,70,7,0,2,31 

10040 SOUND 2,150,100,7,0,2,15 

10050 SOUND 1,200,130,7,0,1,20 

10060 LOCATE 1,21iPRINT"Fuer neues Spiel 

10070 PRINT"Taste Druecken" 

10075 CALL &BB03 
10080 CALL &BB1B 
10085 CLS 

10090 LOCATE 1,10»INPUT"NEUES SPIEL"|a* 
10100 IF a*-"j" THEN CLSimu»OiGOTO 510 
10110 MODE liPEN 2s INK 0,lsCLSiEND 


9050- 9060» 
9070- 9075a 
9080- 90901 
9100- 9110a 
9120- 9130t 
9140- 9150a 
9160- 9170a 
9100- 9190a 
9200- 921Oi 
9900-10000» 
10010-100201 
10030—100401 
10050-100601 
10070-10075» 
10080-100851 
10090—10100a 
10110- a 


23766 

2 

25963 

72117 

56401 

3537B 

116595 

41360 

19434 

70794 

12718 

35306 

14928 

1304 

55135 


GE 8 AMTCHECKSUMME 1 52962 


Das Programm „Boulder Dash“ ist ein Action-Spiel, bei dem Sie Ihre Spielbilder selbst entwerfen kön¬ 
nen. Der Gamedesigner im Spiel ermöglicht einen individuellen Bitdschirmaufbau der einzelnen Le¬ 
wis. Sie bestimmen also in diesem Programm selbst das Spielgeschehen. 



Bou 

Ide 

r [ 

)a 

sl 

1 für den Schneider CPC 465 


Das Ziel des Spieles ist es, mit Ihrer Spielfi¬ 
gur alle auf dem Bildschirm verstreuten 
Diamanten einzusammeln. Allerdings 
müssen Sie darauf achten, daß Ihnen 
nicht bei diesem Einsammeln Felsbrocken 
auf den Kopf fallen oder das Sie von den 


umherfliegenden Schmetterlingen be¬ 
rührt werden. Insgesamt steht Ihnen nur 
ein Leben, jedoch unbegrenzt viel Zeit für 
diese Aufgabe zur Verfügung. 

Die vom Programm vorgegebenen Bilder 
rufen Sie mit „S“ auf. Den Gamedesigner 


können Sie mit jeder beliebigen Taste aus¬ 
ser „S“ aufrufen. An dieser Stelle erklären 
wir Ihnen die Menue-Punkte und Ihre' 
Funktionen: 

Elitär 

Sie gelangen in ein Menue, indem man ein 


V86 




47 

















Programme 


Symbol auswählt. Editiert man ein neues 
Bild, füllt das erste Symbol das Feld, an¬ 
sonsten steuert man den Zeiger mit dem 
Joystick. Ein Symbol wird durch drücken 
des Feuerknopfes gesetzt Die Spielfigur 
und die Schmetterlinge können nicht 
überschrieben werden. Mit der ENTER-Ta- 
ste kehren Sie in das Menue zurück. 

2. Laden 

Mit dieser Funktion können Sie selbster¬ 
stellte Spielfelder laden, die auch an- 

™nr 


schließend über den Editor editiert wer¬ 
den können. Für den Namen können Sie 
auch Wildcarts verwenden. 

3. Speichern 

Dieser Menuepunkt speichert selbstedi¬ 
tierte Bilder ab. 

4. Spielen 

Die selbstentworfenen Spielbilder können 
gespielt werden. 


5. Ende: 

Sie gelangen zurück in das Titelbild und 
das editierte Bild wird gelöscht. 


Anmerkung: Die im Programm 
vorgegebenen Bilder sind als An¬ 
regung gedacht Es dürfen pro 
Bild nur neun Schmetterlinge ge¬ 
setzt werden. Ein Neustart des 
Programms erfolgt über die Taste 
Null des Zehnerblocks. 


Teil 1: 


10 REM 


20 REM 

*** 

BOULDER DASH 

«** 

30 REM 

*** 

1985 BY 

*«* 

40 REM 

#** 

Ralf Moehse 

**# 

50 REM 

*** 

Kirchweg 2 

*** 

60 REM 

**# 

2848 Vechta-Oythe 

*** 

70 REM 

*** 


*#* 

BO REM 

*«* 

Shaperoutinen von 

*** 

90 REM 


Volker Everts 

##* 

100 REM 

*** 



110 REM 

*** 

Poke fuer Modes 

*** 

120 REM 


von 

**« 

130 REM 

*** 

Helmut Tischer 

*** 

140 REM 

***#**###*#**#*#****#*###**##### 

150 REM 

shape routine 


160 REM 

es werden die befehle 


170 REM 

pshape 

, fishapef ,K,y f «n 


180 REM 

gshape 

pSehapetpX,y 


190 REM 

und m shape,Ba4,xl,yl,Cshape$ 

f x2 v 


y2,m zur ver*uegung gestellt 
200 MODE 1 

210 MEMORY 69FFFiadr=*A000izei1»=140 

220 FOR i«l TO 21 

230 summe=0 

240 FOR j=l TO 16 

250 READ byt»t»byt»“VAL("8i ,, +byt»t} 

260 POKE adr,bytei•umm»‘>»umme+byt»ia 

dr=adr+l 
270 NEXT j 

2B0 READ checkilF check<>summe THEN PR 

XNT"Data Fehler in Zeile"|zeileiEND 
290 NEXT i 
300 CALL 6A000 
310 GOTO 540 

320 DATA 01,09,a0p21p39,a0pC3,dl,bc,ld,a 
O , c3,3d, eO , c3 , 4 1 ,1 GBO 

330 DATA a0pc3,9b,a0,c3p2B,al,c3,38,al,c 
3 f 41,al f 47p53p4B,2125 

340 DATA 41p50pC5p50p53p4Gp41,50 f c5,5B,5 
3p4Bp41,50 f c5,47p1575 

350 DATA 45,d4p50,55,d4,53,57 ( d0p00,00p0 

0p00,00,01,12p7e,11B1 

360 DATA 16,00,18,0a,16,00,01,77,la,**,0 
4,cc,f5,a0,fe,03,1348 

370 DATA c0,21,81,aO,70,23,72,23,71,dd,6 


6,02,dd,6e,00,cd,1764 

3B0 DATA d0,a0,dd,56,05,dd,5e,04,la 9 3d,c 
B,dB,4*,eb,23,46,1921 

390 DATA 23,66,68,46,eb,13,*3,dd,68,dd,4 
5,79,90,38, la,4* ,1B49 

400 DATA e5,la-:e v 77,13,2c,cc,le,al,10,f 
6, el ,7c,c6,08,67,1926 

410 DATA e6,38,20,e5,cd,15,al,18,e0,*b,c 
9,*e,07,cc,*5,a0,2504 

420 DATA *e06,c0,dd,e5,dd,6e,00,dd,66,0 

2, e5, 47,dd,23,10,2130 

430 DATA *c,dd,e5,3e,03,16,00,cd,46,a0,d 

d, el,el,dd,75,00,2233 

440 DATA dd,74,02,3e,03,cd,3d,a0,dd,al,3 

e, 03,cd,44,a0,c9,1975 

450 DATA 45,cb,85,4c,26,00,54,5d,29,29,l 
9,29,29,29,59,19,1040 

460 DATA ed,5b,c9,bl,19,7c,e6,07,67,3a,c 
b,bl,84,cb,18,30,2040 

470 DATA 02,06,20,67,09,5*,dd,7e,00,dd,2 

3, dd,23,*e,05,d0,1957 

480 DATA 21,10,al,85,6*,30,01,24,7e,57,3 
2,45,a0,7b,3d,c9,1416 

490 DATA OO t ae a6,b6,2*,7c,d6,40,67,7d,c 
6,50,6*,dO,24,7c,1956 

500 DATA e6,07,c0,7c,d6,0B,67,c9,3d,c0,d 
d,66,01,dd,6Bp00,1987 

510 DATA cd,60,bb,77,23,36,00,c9,3d,c0,d 
d, e ,00,cd,5dpbb f 1982 

520 DATA c9,d6,02,c0,cd,2a,al,dd,7e,02,c 
dp5dpbbpC9,00,00,2052 

530 REM hier werden die ahapee erzeugt 
540 MODE 1 1 RESTORE IOOOiREAD x,ye .4 
550 FOR i-0 TO 6 

560 aha et (i ) -CHRt Cx ) +STRINB4 <x*y ,CHRt (O 
)> 1 NEXT 

570 FOR eh-i TO 6 
580 FOR i-1 TO y 

590 READ dateitilF LEN (datent) <>x*4 

THEN ERROR 5 

600 FOR j-1 TO x 

610 hi-Oilo-O 

620 FOR k-1 TO 4 

630 pixel -VAL (MIDt (datent,<j-l)* 

4+kpl>) AND 3 

640 hi -hi »2+(pixel AND l)ilo«lo« 

2+pixel\2 
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-Programme 


2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2060 DATA 


12,12 

" 000000000000 " 
" 011001100000 " 
" 011101110000 " 
" 001110111000 " 


2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 


" 000111010100 " 

" 011011101110 " 

" 011111111110 " 

"001110111110" 


2130 DATA "000101111110“ 
2140 DATA "OOOOl1111110" 
2150 DATA “OOOOOl111110" 
2160 DATA "OOOOOOl11110" 


CHECK VitPRUEFBUMMENi ! 

410- 

420a 

49719 




430- 

440a 

50404 

ZEILENNR.I SUMMEN 

450- 

460a 

32314 

10- 

20i 

47235 

470- 

480a 

44769 

30- 

40s 

37558 

490- 

500a 

45B2B 

50- 

60a 

56875. 

510- 

520a 

54419 

70- 

BOl 

92601 

530- 

540a 

95720 

90- 

1002 

81059 

550- 

560a 

30684 

110- 

120s 

41429 

570- 

580a 

19365 

130- 

140a 

55043 

590- 

600a 

25870 

150- 

160l 

37080 

610- 

620a 

29972 

170- 

lBOf 

39935 

630- 

640a101058 

190- 

2001 

44551 

650- 

660a 

67347 

210- 

220a 

46096 

670- 

680a 

48251 

230- 

2401 

16622 

690- 

700a 

4986 

250- 

260a114960 

710- 

720a 

24637 

270- 

280a 

13345 

730- 

740a 

67845 

290- 

300a 

2628 

750- 

760a 

17170 

310- 

320a 

24329 

770- 

780■ 

25710 

330- 

340a 

28851 

790- 

BOOa 

83440 

350- 

360a 

34674 

810- 

820a 

15580 

370- 

380a 

46129 

830- 

840a 

26610 

390- 

400a 

43559 

850- 

860a 

2579 


870- 8B0a 

7383 

1330- 

1340a 

20010 

1790- 

1800a 

19922 

890- 900a 

11302 

1350- 

1360a 

12559 

1810- 

1820a 

19623 

910- 920a 

50815 

1370- 

1380a 

20060 

1830- 

1840a 

19715 

930- 940a 

40430 

1390- 

1400a 

20060 

1850- 

1860a 

13500 

950- 960a 

47172 

1410- 

1420a 

20060 

1870- 

1880a 

19669 

970- 980a 

83674 

1430- 

1440a 

19508 

1890- 

1900a 

19830 

990- 1000a 

19443 

1450- 

1460a 

20060 

1910- 

1920a 

20083 

1010- 1020a 

12037 

1470- 

1480a 

20060 

1930- 

1940a 

20336 

1030- 1040a 

19978 

1490- 

1500a 

20060 

1950- 

1960a 

20336 

1050- 1060a 

20097 

1510- 

1520a 

14317 

1970- 

1980a 

20083 

1070- 1080a 

20136 

1530- 

1540a 

19600 

1990- 

2000a 

19B30 

1090- 1100a 

20169 

1550- 

1560a 

19807 

2010- 

2020a 

19669 

1110- 1120a 

20133 

1570- 

1580a 

20221 

2030- 

2040a 

3398 

1130- 1140a 

20041 

1590- 

1600a 

19991 

2050- 

2060a 

12546 

1150- 1160a 

20103 

1610- 

1620a 

19991 

2070- 

20B0a 

12618 

1170- 1180a 

13649 

1630- 

1640a 

20221 

2090- 

2100a 

12641 

1190- 1200a 

19815 

1650- 

1660a 

19807 

21 IO-* 

2120a 

12692 

1210- 1220a 

20006 

1670- 

1680a 

19600 

2130- 

2140a 

12669 

1230- 1240a 
1250- 1260a 
1270- 1280a 

20208 

20334 

20393 

1690- 

1710- 

1730- 

1700a 

1720a 

1740a 

18050 

19945 

19738 

2150- 

2160a 

12645 

GESAMTCHECK8UMMEa 

1290- 1300a 

20301 

1750- 

1760a 

19715 




1310- 1320a 

20221 

1770- 

1780a 

19692 





Teil 2: 


10 DIM ®pfelX(20,12) 

20 ENT -1,2,3,2 
30 ENT -2,2,-2,2 

40 DIM xsta<50),yst»(50),stf*11%(50) 

.50 DXM espfal%(20,12) 

60 KEY O,"goto 3220 1 Muarmaln (3) "+CHR4 
(13) 

70 GOTO 3220 

BO REM dataa fuar apielf«Idar 

90 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3, 

3,3,3,3 

100 DATA 3,1,1,0,1,0,5,0,0,1,1,2,1,0,1,1 
,1,1,4,3 

110 DATA 3,1,1,0,1,2,0,4,2,1,1,4,1,2,1,2 
,1,0,1,3 

120 DATA 3,4,0,0,1,2,4,2,2,1,1,1,1,2,1,2 
,1,2,1,3 

130 DATA 3,1,1,0,0,2,2,2,4,1,1,1,1,1,1,2 

, 1 , 2 , 1,3 

140 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,1 
,1,2,1,3 

150 DATA 3,1,4,1,1,1,1,1,4,1,2,1,1,1,4,1 
i1»2,4,3 

160 DATA 3,1,1,2,2,1,0,1,1,1,2,1,2,1,1,1 
,0,2,1,3 

170 DATA 3,4,1,2,2,1,4,1,1,4,2,1,2,1,1,4 
,2,2,1,3 

ISO DATA 3,1,1,4,2,2,1,2,2,2,2,1,2,1,1,1 
,1,1,4,3 

190 DATA 3,4,1,2,1,1,1,4,1,1,1,1,2,1,1,1 
f1»1 * 1»3 

200 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 

,3,3,3,3 

210 REM Laval 2 

220 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
,3,3,3,3 


230 DATA 3,2,2,4,4,0,0,0,0,0,0,0,0,0,0,0 
,4,4,2,3 

240 DATA 3,4,4,4,2,2,0,0,0,0,0,0,0,0,0,4 
,4,4,4,3 

250 DATA 3,4,4,4,2,4,4,0,0,0,0,0,0,0,4,4 
*4.4,4,3 

260 DATA 3,4,4,4,4,4,4,4,4,0,0,0,0,4,4,4 
,4,4,4,3 

270 DATA 3,4,4,4,2,4,2,2,2,4,0,0,4,2,2,4 
,4,4,4,3 

280 DATA 3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,3 
,3,3,3,3 

290 DATA 3,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0 
,0,0,0,3 

300 DATA 3,0,0,0,0,0,0,0,0,2,2,2,0,0^0*0 
,0,0,0,3 

310 DATA 3,0,5,0,0,0,0,0,4,4,2,4,4,0,0,0 
,0,0,0,3 

320 DATA 3,0,0,0,0,0,0,2,4,4,4,4,4,4,0,0 
,0,0,0,3 

330 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 

,3,3,3,3 

340 REM Laval 3 

350 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
,3,3,3,3 

360 DATA 3,4,4,2,3,0,0,0,0,0,0,0,0,0,0,0 
,3,2,2,3 

370 DATA 3,2,4,4,3,0,0,0,0,0,0,0,0,0,0,0 
,3,4,4,3 

380 DATA 3,2,2,4,3,0,0,0,0,0,0,0,0,0,5,0 
,3,4,4,3 

390 DATA 3,2,4,1,3,0,0,0,0,0,0,0,0,0,0,0 
,3,4,4,3 

400 DATA 3,2,4,2,3,0,0,0,0,0,0,2,0,0,0,0 
,3,4,2,3 

410 DATA 3,2,4,4,0,0,0,0,0,0,4,4,0,0,0,0 
,3,4,2,3 

420 DATA 3,2,4,2,3,0,0,0,0,4,4,4,4,0,0,0 
,3,4,2,3 


50 
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Programme 


650 NEXT k 

660 MID$(>hape*<sh),<i-l)*x+j+l,1) 

--CHR# <lö+16*hi j 

670 IP8HAPE,äshape$(ah),60,30 

600 NEXT j 

690 NEXT i 

700 NEXT ah 

710 MODE 1 

720 READ x,yix=x\4 

730 hand*<»CHR*<x)+STRXNG$(x«y,CHR 6 < 0 )) 
740 FOR i-1 TO y 

750 READ daten*iIF LEN(daten*)Ox*4 TH 

EN ERROR 5 

760 FOR j«l TO x 

770 hi H 0ilo"0 

7B0 FOR k-1 TO 4 

790 piMBl-VAL<MXD«(dat6nS.<j-l>*4+ 

k,l>> AND 3 

000 hi-hi*2+(pixel AND l)ilo-lo*2+ 

Pixel\2 

010 NEXT k 

820 MID*(hand*, <i-l)«x+J+l,l)~CHR*<l 

o+16*hi) 

830 IPSHAPE,@hand*,60,30 

840 NEXT j 
850 NEXT i 


B60 PR1NT"0K" 

870 REM titalbild beim laden von bouldar 
dash 2 
BBO MODE 1 

B90 FOR a»l TO 20 STEP 2iIPSHAPE,«shape* 
<1),a«4-4,2iiP8HAPE,eahape»<2>, <a+l>*4-4 
,2iNEXT a 

900 FOR a-1 TO 20 STEP 2iIPSHAPE,flahape* 
(2),a*4-4,46*IPSHAPE,Bahape*<l),<a+l>«4- 
4,46«NEXT a 

910 FOR a-2 TO 11 STEP 2i(P6 HAPE,«shape* 
<2),0,a«4-2iIPSHAPE v 6shape«<l>,0,U+l>«4 
-2t IPSHAPE,«ahape*(1),76,a»4-2iIPSHAPE,« 
ahape*<2),76,<a+l)«4-2iNEXT a 
920 ZNK 3,20,10 

930 LOCATE 15,20iPEN 3iPRINT"Loading..." 
tPEN 1 

940 LOCATE 19,9tPEN 3«PRINT H by"iPEN 1 
950 POKE 6B1CB,60<P0KE 6B1CF,6CCiP0KE 6 B 
100,633 

960 LOCATE 5,6iPRXNT w B0ULDER DA8H" 

970 POKE 6B1CF,688iPOKE 6BlD0,622iPEN 19 
iLOCATE 7,14iPRINT"RamaBoft" 

980 CHAIN MERBE"IBOULDER DASH 2”,10,DELE 
TE 


990 REM dataa fuer ahapas 
1000 DATA 16,16 
REM Erda 

DATA "1011111222113331" 
"1311111121111101" 
"1113111113331111" 
"1311011131111131" 
"1333111333112221" 
"1110222211333213" 
11 1122202222231101 11 
"3322233311221111" 
"1221213110122333" 
"2211133311112211" 
"1113111122213331" 
"1333122112111103" 
"1110111113331111" 
"1111311111111122" 
"1333122210113332" 
"1111112133311111" 
REM Steina 

DATA "0000033311100000" 
"0003313031111000" 
"0033313331111100" 
"0333033033011110" 
”0333311333113110" 
"3313331310333311" 
"3331133313333331" 
"3333130331130331" 
"3303333333333313" 
"3331331133103313" 
"3331330331331303” 
”0331313331133330" 
"0333333313033330" 
"0033110331133300" 
“0003333331333000" 


1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


340 DATA "0000033313300000" 
350 REM Mauer 

360 DATA ”0000000000000000” 
370 DATA "0131313001313130" 
380 DATA "0313131003131310" 
390 DATA "0131313001313130" 
400 DATA "0313131003131310" 
410 DATA "0222222002222220" 
420 DATA "0222222002222220" 
430 DATA "0000000000000000" 
440 DATA "0000000000000000" 
450 DATA "3130013131300131" 
1460 DATA "1310031313100313" 
1470 DATA "3130013131300131" 
14B0 DATA "1310031313100313" 
1490 DATA "2220022222200222“ 
1500 DATA "2220022222200222” 
1510 DATA "OOOOOOOOOOOOOOOO" 
1520 REM Diamant 
1530 DATA "00000001 lOOOOOOO 11 
1540 DATA "0000011111100000” 
1550 DATA ”0000011111lOOOOO" 
1560 DATA "0002222222222000" 
1570 DATA- "0002222222222000" 
1580 DATA "0333333333333330” 

1600 DATA "OOOOOOOOOOOOOOOO" 
1610 DATA "OOOOOOOOOOOOOOOO” 
1620 DATA ”0333333333333330" 

1640 DATA "0002222222222000" 
1650 DATA ”0002222222222000" 
1660 DATA "0000011111lOOOOO" 
1670 DATA "0000011111lOOOOO” 
1680 DATA "OOOOOOOllOOOOOOO" 


1690 REM Spielfigur 
1700 DATA ”0000000330000000" 
1710 DATA "0003333333333000” 
1720 DATA "0000020220200000" 
1730 DATA "0000022222200000" 
1740 DATA "0000022002200000" 
1750 DATA "0000000220000000“ 
1760 DATA "0001113113111000" 
1770 DATA ”0001101111011000” 
1780 DATA "0001101111011000" 
1790 DATA ”0003301111033000" 
1800 DATA ”0002203333022000" 
1810 DATA "OOOOOOl 111000000" 
1820 DATA "0000111001110000" 
1830 DATA "0011100000011100" 
1840 DATA "0330000000000330" 
1850 DATA "2220000000000222” 
1860 REM Gegner 
1870 DATA "3000000000000003" 
1880 DATA "1300000000000031” 
1B90 DATA ”2130000000000312" 
1900 DATA ”2213000000003122" 
1910 DATA ”2233300000033322" 
1920 DATA ”2222130000312222" 
1930 DATA ”2222213003122222” 
1940 DATA "3333333113333333” 
1950 DATA "3333333113333333" 
1960 DATA ”2222213003122222" 
1970 DATA "2222130000312222" 
1980 DATA "2233300000033322" 
1990 DATA ”2213000000003122“ 
200Ö DATA ”2130000000000312" 
2010 DATA "1300000000000031" 
2020 DATA "3000000000000003" 
2030 REM hand 


m 


mit? 


49 












430 DATA 3,2,1,2,3,0,0,0,4,4,2,4,4,4,0,0 
,3,4,4,3 

440 DATA 3,2,4,4,3,0,0,4,2,4,2,2,4,4,2,0 
»3,4,4,3 

450 DATA 3,2,4,4,3,0,2,4,4,2,2,2,2,2,4,4 
,0,4,2,3 

460 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
,3,3,3,3 

470 REM Laval 4 • 

4B0 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 

490 DATA 3,0,0,0,0,0,2,0,0,0,3,2,1,4,1,2 
,4,1,2,3 

500 DATA 3,0,0,0,0,4,4,0,0,0,3,4,1,1,1,1 

,2,1,2,3 

510 DATA 3,0,0,0,4,2,4,2,0,0,3,2,1,1,4,1 

,2,4,2,3 

520 DATA 3,0,2,4,4,2,4,4,2,2,3,1,1,2,1,4 

530 DATA 3,0,4,4,4,4,4,4,4,1,1,1,1,1,1,1 

,2,4,4,3 

540 DATA 3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,3 

550 DATA 3,2,4,2 t 4,1,1,2,1,1,1,1,4,4,4,4 
,4,4,0,3 

560 DATA 3,2,1,2,1,2,4,1,1,2,3,0,2,2,2,2 

,2,0,0,3 

570 DATA 3,4,4,2,5,2,2,4,1,2,3,0,0,4,4,4 
.*,4,2,3 

580 DATA 3,2,1,4,1,4,1,1,1,4,3,0,0,0,2,0 

,0,0,0,3 

590 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 

i>3,3,3,3 

600 REM Laval 5 

610 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 

620 DATA 3,2,1,1,2,1,1,1,2,0,2,4,1,1,1,1 

,2,1,2,3 

630 DATA 3,1,4,1,1,1,1,4,2,0,4,2,1,1,4,6 
,2,1,1,3 

640 DATA 3,1,2,1,1,2,1,1,1,0,1,4,1,2,1,1 
,2,1,4,3 

650 DATA 3,1,1,1,1,1,1,1,1,0,2,1,1,2,1,1 
,2,1,1,3 

660 DATA 3,1,2,1,6,4,1,1,1,0,2,1,1,4,1,1 
,2,4,1,3 

670 DATA 3,1,1,1,1,1,1,4,1,0,2,1,1,2,1,2 

,2,1,2,3 

680 DATA 3,2,4,1,1,1,1,1,5,0,1,1,4,1,1,1 
,1,2,1,3 

690 DATA 3,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0 
,1,4,1,3 

700 DATA 3,2,0,0,1,1,1,1,1,4,1,1,1,1,1,0 
,0,1,1,3 

710 DATA 3,0,0,1,1,1,4,1,1,6,1,1,4,1,1,1 

f0|0f0y3 

720 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3 
,3,3,3,3 

730 REM an-fang spiol 
740 leval»! 

750 liv®=3 
760 haelavelaS 


Programme. 


770 ON level G08UB 1610,1620,1630,1640,1 
650 

780 MODE 1 

790 SOUND 1,400,500,4,,2 
800 FOR y2-l TO 12 
810 FOR x2-l TO 20 
820 READ sp-falX(x2,y2> 

830 NEXT x2 

840 NEXT y2 

850 yi=0ixi=0 

860 FOR y-2 TO 49 STEP 4 

870 yi*yi+l 

880 FOR x«0 TO 79 STEP 4 
B90 xi-xi+liIF xi>20 THEN xi«l 

900 IP8HAPE,Gshapa*(sp-f alX <xi,yi)),x 

. V. 0 

910 NEXT x 
920 NEXT y 

930 LOCATE 10,1iPRINT n 8PIELBZENEi"|laval 

940 ON laval 60T0 950,980,1010,1040,1080 

950 x B 7(y B 2idiamant B 16 

960 stainX»Oidauar=4 

970 80T0 1130 

980 x B 3iy B 10idiamant B 57 

990 atainX-Oid«uar-4 

1000 80T0 1130 

1010 x B 15.y s 4idiamant B 47 

1020 stainX B Oidauar*4 

1030 GOTO 1130 

1040 M B 5iy B 10idiamant B 44 

1050 stainX B 0idauar B 4 

1060 GOTO 1130 

1070 REM hauptstauarprogramm 

1080 EVERY 100,3 B08UB 1670 

1090 schmaanz B 3ixx(l) B 5:yy(1)~6txx<2> b 10 

t yy(2)»11 1 xx(3 ) b 16i yy(3)*3 

1100 M B 9iy B 8idiamant B 17 

1110 stainX B Oidauar-4 

1120 BOTO 1130 

1130 IF schmaanz >0 THEN EVERY 100,3 BOSU 

B 1670 

1140 tot»0 

1150 ax B xiay B y 

1160 j<-J0Y(0) 

1170 IF J-l THEN y-y-l 

1180 IF j»2 THEN y~y+l 

1190 IF j“4 THEN x-x-1 

1200 IF j=8 THEN x»x+l 

1210 IF x >19 THEN x«19 

1220 IF x<2 THEN x>2 

1230 IF y<2 THEN y»2 

1240 IF y>l1 THEN y-11 

1250 IF sp-falX(x,y>>>4 THEN GOTO 1390 

1260 IF xOax OR yOay THEN IF sp-falX<x, 

y—1)"2 THEN stainX B stainX+lixste(stainX) 

»x i ysta ( stei nX) “y—1 1 st-f al 1X (stainX) *daua 

r 

1270 IF stainX>0 THEN FOR zahl-l TO stai 
nXi st-f al IX (zahl) »st-f al IX (zahl ) -1 1 IF st-f a 
llX(zahl)"0 THEN BOSUB 1440 ELSE NEXT 
1280 FOR varzo>*l TO 50iNEXT varzoa 
1290 IF tot»l THEN sxzs-REMAIN(3)■RETURN 


m 


©e>mp «)&« mit 


51 









Programme 


1300 IF apfelX(x,y)<>l AND apfelX(x,y><> 
0 AND apfa!X(x,y)<>5 THEN x®ax:y=ay:GOTO 
1330 

1310 ipftlX(«N,ay)>OiBpfalX(K,y)-5 
1320 XF xOax 0R y< >ay THEN 80UND 1,24B, 
10,6,,,5 

1330 htashapsXO) 

1340 IX8HAPE,@hB,ax*4-4,ay*4-2,SshapaB(5 
>,x *4-4,y*4-2,0 

1350 IPBHAPE,BshapeB(0),ax *4-4,ay*4-2 

1360 IPSHAPE,SahapeB(5),x*4-4,y*4-2 

1370 BOTO 1150 

13B0 REH diamant Abfrage 

1390 apfelX(x,y)®0 

1400 SOUND 2 t 100,10,6 

1410 diamant*diamant-liIF diamant-0 THEN 
lavalalayal+liXF laval>hoalaval THEN ax 
sz-REMAIN(3)iBOUND 1,2B4,45,5,,1:SOUND 2 
f 286,45,4,,2iBOUND 4,288,45,SiRETURN ELB 
E BOTO 770 
1420 BOTO 1260 
1430 REM felabawegung 
1440 xa®xat«(zahl):ya®yate(zahl) 

1450 XF ap-felX(xa,ya+l)<>0 THEN 1560 
1460 IPSHAPE,BahapeB(0),xa*4-4,ya*4-2,0 
1470 IPSHAPE,fiahapaB(2),x a*4-4,(ya+1)#4- 
2,0 

1480 SOUND 4,480,5,4,,,30 
1490 FOR axa-1 TO IOiNEXT axa 
1500 apfelX(xa,ys)*0 
1510 apfalX(xs,ya+l)»2 

1520 IF spfelX(xs,ya—1)=2 THEN ys=ys—1:G 
□TO 1460 

1530 yata(zahl)«yste(zahl)+l:GOTO 1440 
1540 ateinX»steinX-l 
1550 RETURN 

1560 IF ap-felX(xs,ya+l>a>5 THEN 1600 
1570 IF apfelX(xa,ya+l)<>6 THEN RETURN 
15B0 pu-pu+200 
1590 BOTO 1460 

1600 ENV B,®11,5000iSOUND 1,0,60,14,8,0, 

15:axaz®REMAIN(3>iLOCATE 13,15iPRINT"BAM 

E OVER"iSOUND 1,0,500,5,,liFOR a-1 TO 50 

OO.NEXT aiSOUND 1,0,2,1itot-1»RETURN 

1610 REBTORE 90s RETURN 

1620 RE8T0RE 2201 RETURN 

1630 RESTORE 350s RETURN 

1640 RESTORE 4B0iRETURN 

1650 RESTORE 610iRETURN 

1660 REM achmetterlingbewegung 

1670 FOR a«l TO achmeanz 

16B0 axx(a)-xx(a)layy(a)=yy(a) 

1690 IF x>xx(a) THEN xx(a> -hx (a)+1iGOTO 
1730 

1700 IF x<xx(a> THEN xx (a) =xx(a)-1 : GOTO 
1730 

1710 IF y<yy(a) THEN yy(a)«yy(a>-1iGOTO 
1730 

1720 IF y>yy(a) THEN yy(a)«yy(a)+1 
1730 IF apfelX(xx(a),yy(a))®5 THEN tot®l 
IRETURN 

1740 IF ap<falX(xx (a> ,yy (a> ><>0 THEN xx ( 


a)®axx(a)iyy(a)=ayy(a) 

1750 IPSHAPE,WahapaB(0),axx(a)*4-4,ayy(a 
>*4-2,0 

1760 IPSHAPE,SahapeB(6),xx(a>*4-4,yy<a>* 
4-2,0 

1770 apf*lX(axx(a),ayy(a>)»0 

17B0 spfelX(xx(a),yy(a))»6 

1790 NEXT 

1800 RETURN 

1810 REM gamedaaigner 

1820 x a liy>l 

1830 FOR y-1 TO 12iF0R x=l TO 20iapfelX< 
x,y>-OiNEXT XiNEXT y 
1840 x®liy*l 
1850 MODE 1 

1860 FOR x®1 TO 20t*pfelX(x,y>«3ieepfelX 
(x,y)~3iIPBHAPE,$ahapa$(3),x*4-4,y*4-2,0 
(NEXT x 

1870 y>12iF0R x=l TO 20iapfclX(x,y)=3iaa 
pfelX(x,y)=3:IPSHAPE,BahapeB(3),x«4-4,y« 
4-2,OiNEXT x 

1BB0 FOR y-2 TO UtapfalX(l,y)>3iaapfelX 
(l,y)-3:IPSHAPE,BahapeB(3),1*4—4,y*4—2»a 
pfelX(20,y)*3iespfelX(20,y)=3iI PSHAPE, (äs 
hapaB(3>,20*4-4,y*4-2iNEXT y 
1B90 MODE 1 

1900 LOCATE 9,8iPRXNT CHRB(24)y " 1" yCHRB( 
24)|" EDITOR" 

1910 LOCATE 9,2iPRINT CHRB(24)|"Bame-Dea 
ignar"y CHRB(24) 

1920 LOCATE 9,lltPRXNT CHRB(24)y"2")CHRB 
(24)y" LADEN" 

1930 LOCATE 9,14iPRINT CHRB(24)y"3"yCHRB 
(24)y" SPEICHERN" 

1940 LOCATE 9,17iPRINT CHRB(24)y"4"yCHRB 
(24)y" SPIELEN" 

1950 LOCATE 9,20iPRINT CHRB(24)y"5"yCHRB 
'(24) y " ENDE" 

1960 aB-INKEYBiIF aB*"" THEN 1960 

1970 IF a*="1" THEN 2030 

1980 IF aB®"2" THEN 2240 

1990 IF aB="3" THEN 2460 

2000 IF aB="4" THEN 2660 

2010 IF aB«"5" THEN 3220 ELSE 1960 

2020 REM editor 

2030 MODE 1 

2040 durchlauf^durchlau-f+l 

2050 LOCATE 17,3iPRINT CHRB(24)y"EDITOR" 

yCHRB(24) 

2060 LOCATE 3,9iPRINT CHRB(24)y"O"yCHRB( 

24)i SPSHAPE,BahapaB(0),10,18,0 

2070 LOCATE 12,6:PRINT CHRB(24)y"1"yCHRB 

(24)i!PSHAPE,BahapeBd) ,28,12,0 

2080 LOCATE 12,9iPRINT CHRB(24)y"2"yCHRB 

(24) i !PSHAPE,BahapeB(2),28,18,0 

2090 LOCATE 12,12iPRINT CHRB(24)y"3"yCHR 

B(24):!PSHAPE,BahapeB(3),28,24,0 

2100 LOCATE 21,6:PRINT CHRB(24)y"4"yCHRB 

(24):!PSHAPE,BehapeB<4>,46,12,0 

2110 LOCATE 21,9:PRINT CHRB(24)y"5"yCHRB 

(24):!PSHAPE,BahapeB(5),46,18,0 

2120 LOCATE 21,12:PRINT CHRB(24)y"6"yCHR 
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Bewerbung als Proprammautor 


Name: _ _ _ _ _ Vorname: - Alter:_ 

Straße: - Wohnort: - - - 

Titel des Programmes:_ __ __Computersystem: -- 

Erforderlicher Speicherplatz:_KBytes 

Erforderliche Pheripherie: -- 

Ich versichere hiermit, daß ich der Autor desobengenannten Programmes bin und alle Rechte besitze. Ich bin damit einverstanden, daßSie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 

Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: ___ Diskette: _ Dokumentation:___ Listing: - Rückporto: 

Unterschrift des Programmautors: - 


Einsenden an: Tronic-Verfag AU. Prognmmentwicklung, LandstraOe 29,3444 Wehretal 1 
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Auftrag für Gelegenheitsanzeigen in „Compute mit.. “ 

Name und Adresse 

An „Compute mit..." 
Tronic-Verlag 

Postfach 

3444 Wehretal 1 









Unterschrift 


Datum 


Unter der Rubrik „Kleinanzeigen“- 
veröffentlichen wir Gelegenheits¬ 
anzeigen für Vierkaufsangebote, 
Kauf- und Tauschgesuche, Kön- 

Ich wünsche folgenden Text zu veröffentlichen: 

II 1 II II 1 1 11 1 1.III 

i i i i .n 

Imin 

1 1 1 1 1 1 ,1 1 1 

1- LI 1 1 1.1 1 1 1 1 1 1 

i m i i i 

iiiiii 

taktaufnahme bzw. Erfahrungs¬ 

1 II II 1 1 1 1 

-I U 1 1 1 1 1 1 1 1 II 

1 1 M 1 1 

. 

austausch usw. 

1 M 1 1 II II 

M 1 1 1 1 1 1 1 1 1 II 

1 1 II 1 1 

iiiiii 

Aktuell: 

1 1 1 11 11 II 

i II II 1 II 1 1 1 II 

1 1 1 1 1 1 

iiiiii 

Unsere Preise für „Kleinanzeigen“: 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 

II 1! 1 1 1 1 1 

II II 1 II 1 1 1 1 II 

1 1 1 1 1 1 

iiiiii 

1 1 II II 1 1 1 


1 1 1 1 1 1 

IIIIII 

li II 1 II 1 1 

1 M 1 II II 1 1 1 1 1 

1 1 1 1 1 1 

IIIIII 

(dürfen nicht unter Chiffre erschei¬ 
nen) 

Eine Veröffentlichung erfolgt nur 

II II 1 II 1 1 

t II 1 1 1 II 1 1 1 II 

1 1 1 1 1 1 

IIIIII 

1 1 II 1 1 1 1 1 

1 1 II 1 1 1 1 II 1 1 1 

llllll 

IIIIII 

gegen Vorkasse! 

Kleinanzeigen jetzt 
noch preiswerter 

suche O Software 

biete an O Software 

suche O Hardware 

biete an O Hardware 

Zutreffendes ankreuzen 

O Tausch O Versch. 

O Kontakte O Chiffre 
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Biete Software 


Sensation! Unser brandneuer Katalog ist da! 
Mit viel Hard-& Software für Ihren C 64/128/ 
VC 20! Supersonderangebote: Spiele, 
Adventufes, Utilities, User, Interfaces, Acces¬ 
soires u.v.m.! Z.B.: DFÜ-Interface, Disc Aid, 
Thermocontrol, Superaction mit White Shark 
etc.! Gleich anfordem gegen 1,60 DM in Mar¬ 
ken bei: Comp Versand U. Tiedau, a. d. 
Ölmühle 24, 4270 Dorsten 1. 


GESTRICHEN... haben wir fast alle Software¬ 
preise (z.B. CYRUS II3-D Schach DM 41,90) 
u. das Angebot auf über 140 Artikel erweitert! 
Die Mitgliedschaft ist immer noch für 20,—/ 
Halbjahr zu haben!! COMPI-CLUB, J. Heise, 
A.d. Linde 8, 5226 Reichshof. 


***************** 

* SCHNEIDER CPC 464/664 * 

* Univers. Ein/Ausgabe-Interface 32 Bit * 

* TTL. Zum Anschi, vielseit. Hardware a. * 

* CPC. z.B. A/D Wandler, Relais, Roboter, * 

* Schul-Elsenbahn-Discoelectr. od. * 

* M&L Zubehör. Ausf. Bedien.-Anl. Eig- * 

* nes Netzteil. Programmiert), in Basic * 

* od. Asemml. Interupttaagl* DM 198 * 

* EPROMPROGRAMMIERGERÄT an E/ * 

* A-Interfaceanschließb.f. 2716-27128, * 

* 2516-2564 m. komfort. Bedienersoftw. * 

* 28pol. Textoolsock, vorher, f. 27256. * 

* Maschinenspr.-Monitor. Lesen, Leert. * 

* Programm. Vergleich, v. Eprom’s * DM * 

* 178 M&L-Maximini&Lichter, Hauptstr. * 

* 1a, 5511 Mannebach, T. 06581/3535 * 
*★****★★★★★****** 


BACKUP: Disketten-Kopierprogramm für 
CPC 464 mit Vortex 512 K Erweiterung. Wie 
Discopy, jedoch ohne CP/M und in nureinem 
Durchgang. Für20 DM (Brief), inkl. Anleitung, 
Porto und Verpackung von W. Spütz, Eyller- 
Str. 225, 4132 Kamp-Lintfort. 


COMMODORE 16/116: Wir haben die Pro¬ 
gramme, die Sie suchen! Infos kostenlos bei: 
Andreas Bachler, Blücherstr. 24, 4290 
Bochoft. Außerdem: Die C 16/116 Insider- 
Mappe für6,— DM oderdas Überraschungs¬ 
paket mit 5 Top-Spielen für nur 15 DM (Bitte 
nur als Schein oder Scheck beilegen!) 


C-16/116 20 Programme, C-16/116 20 

Spiel- und Anwenderprogramme für nur * 
20 DM *. Je Programm nur 1 Mark. 

Scheck oder Schein an: Daniel Beitlich, Klei¬ 
ne Höllbergstraße 6, 6000 Frankfurt 50. 
Oder Info anfordem gegen Porta 


Funkfemschreibprogramm für CPC 464 

(RTTY). Soft- und Hardware incl. Konverter, 
AFSK, Festtext-Drucker und Empfangsspei¬ 
cher. Baudot und ASCII bis 200 Barä. 
Machen Sie Ihren CPC zum prof. Fernschrei¬ 
ber. Anwendung z. B. beim Amateurfunk. Info 
kostenlos bei: Stefan Peim, Soft- und Hard¬ 
ware, FriedrichsruherStr. 32,1000 Berlin 33, 
Tel. 030/8242943. 


Commodore 64/20 + Schneider CPC 464: 

Supergünstige Programme zu Taschengeld¬ 
preisen! Kaufen Sie bei den Profis, denn wir 
sind exclusiv und günstig! Infos kostenlos: 
Andreas Bachler, Blücherstr. 24, 4290 
Bocholt. Programme für: Schneider CPC 464 
Commodore 64/20/16/116. 


Commodore 64, VC 20 C 16. Fibu, EK-VK, 
Foto-, Film-, Video-, Musikarchiv, Lotto, 
Adress, ’YSI', Tabello, Digitalo, Lempro- 
gramme, Denktraining, Spiele, Karteikasten, 
Biblo, KFZ-Programme u.v.m. schon ab 19,90 
DM! Katalog gegen 80 Pf. in Briefmarken, 
Tino Hofstedes Computerservice. A.d. Wind¬ 
mühle 8, 5010 Bergheim 5. 


mmm c 16 /c ii6 ••• c 16 / c ii6 ••• 

Biete Vokabel Drill Sergeant (Vokabellern¬ 
programm) keine Raubkopie!! ••#•••• 
Tobias Brandt, Alte Trift 38,2150 Buxtehude. 
Nur auf Kassette lieferbar!! 

Preis: 10 DM (Schein)!!! PS: Info liegt bei. 

C 16, C 116, Plus 4. An alle Floppybesitzer: 
Habe das Adressenverarbeitungspr. Bis zu 
2000 Adressen abspeichern möglich. 26 
Dateien auf Diskette. Adressensuchroutine 
+ Verändern + Löschen. *** 10 DM ★** 
mit Disketten *** bei: Alexander Füngling, 
Vörden Knäppen 30,4410 Warendorf 1, Tel.: 
0251/1022. 


Für CPC 464: ca. 20 Original-Spiele, Topcalc 
und andere Textprogramme, dt. Anleitungen, 
VB 180,-. Peter Stange, 5800 Hagen, In der 
Senke 20. 


Programme für die Arztpraxis 
auf dem Schneider Computer 
Privatliquidation - Leistung-Statistik 
Abrechnung-Unterstützung 

Info bei: Fa. EFFEKTA 
Am Wiggert 9c, 4500 Osnabrück 
Telefon (0541) 45916 


Einmalige Gelegenheit f. VC-20. Ich verk. 11 
org. Spielecassett. z. B. Kegeln, Luftkampf, 
Ufo etc... (Preis 50,- DM) + 2 Spielhallen 
Module (Hau den Lukas, Pole Posit.) NP: pro 
Stck. 98,-/VP: pro Stck. 40,- + Vbk. z. Cas- 
settenrecorder und VC-20 (Preis: 30,- DM). 
Schreibt an: Bernd Failner, Birkensteingasse 
2, 8563 Schnaittach. 

Beachten Sie bitte auch die 
letzten Restangebote von 
unseren 

Top-Hit- 

Programm¬ 

paketen 

auf Seite 31 dieser Ausgabe. 


VC-20 Programme, z. B. Boeing 727-Simula- 
tor. Angebote auch Tel. 02324/61862, 
sonst, geg. frankierten Umschi., Horst Quer- 
furt, Postf. 843042, 4320 Hattingen 14. 

*★*★*★*★★*★*★★★*★* 

* Achtung!! VC-20-Besitzer. Das ein- * 

* malige Angebot! Der VC-20 ist noch ★ 

* lange nicht out!! Info DM 5,^ in Brief- * 

* marken! 40/80-Zeichenkarte 120 * 

* DM, 64 Kb + Steuerep, ohne geh. * 

* nur 120 DM, 32Kb + geh. nur 130 ★ 

* DM! DFÜ mit dem VC -.20 jetzt * 

* zugreifen. HPT Electronic, Am Rain * 

* 23, 8024 Deisenhofen. * 

****************** 
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Suche Software 

★** SENSATIONELL: Zusatzlaufwerke für 
Schneider CPC-464 und CPC-664 **** 
Im Gehduse und mit allen Kabeln 57/ / 
40 Track/ einseitig 549,-DM*3”/40 Track/ 
einseitig 399,- DM 

KDB-COMPUTER-VERSAND, Komstraße 28, 
5800 Hagen 7, Tel. 02331/400601 

PREISWERT GESUCHT: 

1 C 64, Floppy 1541 und Disketlen-Sof^l 
wäre hierfür 

| Wacholderweg 4, 3006 Burgwedel 1 | 

^■■1 Dr. Peer-Ingo Litschke ■■■■ 

VC-20☆☆ VC-20 ☆☆ VC-20 ft ft .★ 

Suche intakte Floppy. Biete 150 DM. Für 
defekte Floppy zahle ich bis 80 DM. HELP!!! 
Wer kann mir eine Graphik nach Poster-Vor¬ 
lage für die GV erstellen??? Zahle 30-50 DM 
für laufendes PG Frohe Weihnachten u. Pro¬ 
sit Neujahr it ft it Adresse: Albert Wrrtz, 
Johannis Str. 2; 5180 Eschweiler. 

VC-20!! Suche gute Software (GV > 16 K)ü 
Vor allem das Spiel „Miner 2049“ und andere 
Äctionspiele und Adventuresü Suche außer¬ 
dem guterhaltene 40-ZeichenkarteH 
Adresse: Stefan Schaum, In der Burgweid 
1A, 5110 Alsdorf, 

Verk.: Matrix-Drucker GP 500 CRC DM 300 
Suche: Floppy DDI-1 o. a sowie Anwender¬ 
software (z. B. Buchhaltung/Lohnabrech¬ 
nung/Grafik etc.). 

Klaus Bartram, Kfm.-Büro, Haardtwaldstraße 
1-7, 6000 Frankfurt 71, Tel. (069) 6702230. 

Such« Software für C 64, C128 und CPM. 
Verkäufe oder tausche Bücher * C 64 für 
Technik + Wissenschaft 30,- * Das große 
Druckerbuch 30,- ft Basic auf dem C 64 30,- 
★ Beherrschen Sie Ihren Q 6410,- *64 Pro¬ 
gramme für den C 64 20,- * Suche s/w- 
Monitor, Fischertechnik Computing Bauka¬ 
sten und Interface. * Christoph Franzen, 
Bonifatiusstr. 70, 4130 Moers-Asberg. 

VC-20 ++ Supererweftsning ++ 3 k ++16 K 
+ Datasette + Joystick + Spielmodule + 
Spielcassetten + Basicselbstlemkurs + 

2 Bücher + viele Computerzeitschriften. 

*** billig 111 billig III *** 

Angebote an M. Ottiger, Im Trübacker5,8600 
Dübendorf - SCHWEIZ. 

Verschiedenes 

Harzlictwn Glückwunsch!! Zu 1 JahrCOMPI- 
CLUB und über 210 Mitgliedern gratulieren 
die Leiter der User-Gruppen Nord, Süd u. 
Westfalen! 

- Biete Hardware 

Biete CPC 464 mit Grünmonitor für 650 DM, 6 
Monate alt und Schneider-Matrix-Drucker. 
NLQ 401 — Neu — originalverpackt mit 
Garantie für 700 DM. 

Adresse: Plein Markus, Hackländer Str. 23, 
5000 Köln 30, Tel. 0221 /5503491. 

VC-20 zu verkaufen. + Datasette+Spiele 14, 
Tasche und Lembuch zu melden bei: Elmar 
Thews, Am Lahrkreuz 5, 5750 Menden 1. 

* ♦ ♦ * * Nur 200 DM * ♦ ♦ + ♦ 

★ *** VC-20-Besitzer sucht **** 

Schaltpläne zum VC-20 und allem was dazu¬ 
gehört (Erweiterungen, Datasette usw.) und 
sonstige Schaltungen z. B. Stimmverzerrer, 
Lichtorgel, Hallgerät, usw. Suche VC-20- 
Besitzer zwecks Tausch im Raum Aachen!! 
Zuschriften an: Albert Wirtz, Johannis Str. 2, 

★ ★ ★ ★ 5180 Eschweiler itititit 


VERKAUFE C-116 

☆ * mit Joyst. und Cassettenrekorder # ☆ 

itft mit drei Spielen ☆ * 

☆ ★ 3 Monate alt und Garantie ★ ☆ 

itft nur für 250 DM ☆ ★ 

☆ ★ Bitte melden bei: Lorenz Witte * ft 

it ft Eltviller Str 2, 6229 Kiedrich ft it 
ft it ft it SCHNELL it ft it ft 

Wer hat Erfahrung mit dem C16 und der64 K 
RAM-ErweHerung von KING-SOFT? Wie 

errechne ich über Monitor den RAM-Bereich 
von HEX 8000 aufwärts? Wer kann mir behil¬ 
flich sein bei der Verwendung des Druckers 
SEIKOSHA GP 500 VC zum Grafikdruck? 
Tausche auch kleine Programme (Selbstent¬ 
würfe). Rainer Hickel, Mullbergerstr. 115, 
2964 Wiesmoor. 


Verkaufe Drucker Seikosha GP-100A für 
300 DM - 9 Monate alt Suche Biorhyth¬ 
mus-Programm für Bildschirm und Drucker. 
Stefan Kleist, Schulweg 8,6696 Nonnweiler. 

Suche Hardware 

Suche guterhaltenen C»64 mit Floppy evtl. 
Programmen. 

■ Angebote an: ■ 

M Thomas Kesselring ■ 

Ä Bismarckstr. 23 ■ 

M 8710 Kitzingen ■ 

■ Tel.: 09321/5643 M 

? ? ? Help ? ? ? Hilfe ? 7 ? Help ? ? ? 
Suche dringend gebrauchten C-64 mit Fiop- 
py-Laufwerk. 

Angebote an H. Kästle, Marktstraße, 3440 
Eschwege oder telef. unter 0 56 51 / 5 06 85 

Neu mit Datassette. Tel. 02402/ 

7 34 98. 


Tausch 

G&S Cotnputerservice, Rudi Gutemann u. 
Dieter Schulz, Soft-u. Hardware C-64. Unser 
Angebot: Farbb. Epson 80,801,802 je 15,95, 
Disketten 3. 50 St. 10er Box 39,50, Abdeck¬ 
haube 12,25, Lüfter 37,90, Box 85 Disk. m. 
Schloß 35,50, Diskettenloch. 12,95, Eprom- 
brenner kpl. 159,00. D. Schulz, Funkenstr. 42, 
5020 Frechen, Tel.: 02234/57848. Katalog 
kostenlos. 

CPC 464, Tausche Programme aus den 
Bereichen: Spiele, Büro, Schule, Musik, 
Technik, Hilfsprogr. für CPC 464. Liste für 1 
DM in Marken bei Helmut Jacob, Max-Gruhl- 
Straße 4,. 5802 Wetter-Wengern; kein Ver¬ 
kauf, keine Raubkopien, Bestand etwa 300 
Programme; senden Sie Ihre Liste, entfällt 
meine Listengebühr v. DM 1,- 
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Fehlerhafte Listings 

Ich finde es eine bodenlose Frechheit wie 
Sie mit Ihren Lesern umspringen. Für den 
C-16 habe ich jetzt schon 6 Spiele abge¬ 
tippt und keines funktionierte. Aber eines 
muß man Ihnen lassen, Sie haben immer 
schöne Absturzbilder. Mein Freund besitzt 
den VC-20 und bei ihm klappt (Oh Wun¬ 
der) sogar der Vorspann. Eines ist uns 
klargeworden, Sie wollen nur Geld schef¬ 
feln? Sie haben von der Materie keine Ah¬ 
nung! Sonst wüßten Sie, daß man Spiele 
für den C16/116 auch auf dem Plus 4 ab¬ 
spielen kann. Denn beide haben BASIC 
3.5, nur der Speicher ist größer beim Plus 
4. Ihre Programme habe ich fehlerfrei ab¬ 
getippt. Mein Freund und ich kaufen Ihre 
Zeitschrift nicht mehr und warnen auch 
alle anderen Leser. 

Manual Japes. Lüdenscheid 

PS.: Diesen Brief werden Sie sowieso nicht 

abdrucken! 

Redaktion: Zunächsteinmal haben wir Ih¬ 
ren Brief doch abgedruckt, obwohl der 
Brief natürlich eine ganze Reihe von Vor¬ 
würfen und Inkompetenz enthält. Aber wir 
möchten auch zu kritischen Leserbriefen 
Stellung nehmen und alle Leser ermun¬ 
tern, uns Ihre Probleme mitzuteilen. 

Die von Ihnen abgetippten C-16 Program¬ 
me müssen mit Sicherheit noch einige 
Eingabefehler enthalten, da diese fehler¬ 
frei veröffentlicht wurden. Ebenfalls trifft 
dies auch für die VC-20 Programme Ihres 
Freundes zu, da sonsteine wahre Flut von 
Leserbriefen über nicht funktionierende 
Programme bei uns eingegangen wäre. 
Die in Basic geschriebenen Programme 
des C16/116 laüfen tatsächlich auf dem 
Plus 4, da das Basic identisch ist. Werden 
in den Programmen jedoch PEEK- und PO- 
KE-Befehle verwandt, läuft nichts mehr. 
Sie sehen also, ein wenig technisches 
Know-how und Erfahrung im Bereich der 
Homecomputer-Szene haben wir schon 
gesammelt. Im Übrigen ist eine Warnung 
der Leser immer nur erfolgreich, wenn die 


aufgestellten Behauptungen auch hieb- 
und stichfest belegt werden können. Na¬ 
türlich möchte sich aber auch unsere Re¬ 
daktion nicht ganz von Fehlem freispre¬ 
chen. Sollten noch mehr Leser Schwierig¬ 
keiten mit den Programmen haben, lassen 
Sie es uns wissen, wir helfen gern weiter. 

Probleme 

mit dem CPC-Checksummer 

Heute habe sich meine ersten Versuche 
mit dem CPS-Checksummer gefahren! 
Ich finde die SUPER!!! 

Leider habe ich Schwierigkeiten mit DE- 
LETE 56200. Wie kann ich das angehäng¬ 
te Programm löschen? 

Thomas Stüferte jun., Eitach-ffingingen 

Redaktion: 

Bei genauem hinsehen erkennen Sie, daß 
ihnen ein Zahlendreher unterlaufen ist 
Um den Checksummer wieder zu löschen, 
gegen Sie folgenden Befehl ein: DELETE 
65200 -. Der Bindestrich darf nicht ver¬ 
gessen werden. 

Maschinenspracheprogramme 
für VC-20 

Ich bin begeisterter Leser Ihrer Zeitschrift 
und habe eine Bitte. In Ihrer Zeitschrift 
sind pro Ausgabe mindestens 2 VC-20 
Spiele abgedruckt. Ich würde es begrü¬ 
ßen, alle Spiele mit einer geschwindig¬ 
keitsbestimmenden Maschinensprache¬ 
routine abzutippen. Ansonsten ist Ihre 
Zeitschrift spitze. 

Jürgen Gmeiner, Würselen 

Redaktion: Vielen Dank für das dicke Lob 
unserer Zeitschrift. Unsere Redaktion 
plant in den künftigen Ausgaben sogar 
noch eine Erweiterung der Programman¬ 
gebote für den VC-20. Zu Ihrer Bitte mit 
den Maschinenspracheroutinen müssen 
wir Ihnen sagen, daß dies natürlich von 
den einzelnen Programmautoren bei der 
Entwicklung Ihrer Software berücksich-, 
tigt werden muß. Bei unserer Auswahl der 


Programme wird diese Tatsache jedoch 
meistens berücksichtigt 

Programmfehler in „SUPER- 
BREAK-Olir ius Heit 11/85 

Nachdem ich das Programm mit „RUN“ 
starte erscheint „Maschinen-Data-Error". 
Gebe ich nun „CONT“ ein, erscheint das 
Spielbild. Nach Abfrage der Spielstarke 
beginnt das Spiel, jedoch werden weder 
Punkte gezählt noch Steine zerstört. Wo¬ 
ran liegt das? 

Thomas Martin, Saarbrücken-Dudweiler 

Redaktion: Das von Ihnen erwähnte Pro¬ 
gramm wurde vollkommen fehlerfrei ver¬ 
öffentlicht. Die bei Ihnen aufgetretene 
Fehlermeldung ist ein deutlicher Hinweis 
auf einen Tippfehler bei der Eingabe. In 
solchen Fällen darf auf keinen Fall der Be¬ 
fehl CONT verwandt werden, da der Fehler 
auf diese Weise nur zeitlich verschoben 
wird. Überprüfen Sie also nochmals sorg¬ 
fältig Ihr Programm auf Eingabefehler. 

Reverse Zeichen auf dem C-16/116 

Anfrage: Wie bekomme ich die, bei dem 
Programm „City-Runner“, beschriebenen 
reversen Zeichen auf den Bildschirm? 
Oder besser gesagt wie bekomme ich 
überhaupt reverse Grafikzeichen in Ver¬ 
bindung mit einem Print auf den Bild¬ 
schirm? 

Thorsten Hup, Home 

Redaktion: Reverse Steuerzeichen inner¬ 
halb von Listings sind Steuerzeichen, wel¬ 
che eine bestimmte Funktion oder Aufga¬ 
be erfüllen. Als Beispiel sind hier die Cur¬ 
sor-Tasten oder die CTRL-Taste in Verbin¬ 
dung mit der Farbumschaltung zu nen¬ 
nen. Diese Steuerzeichen können nur in¬ 
nerhalb von Anführungszeichen erzeugt 
werden und erscheinen dann auch auf 
dem Bildschirm oder Drucker. Sie müssen 
also darauf achten, daß vor dem Erzeugen 
dieser reversen Grafikzeichen, die Anfüh¬ 
rungszeichen stehen müssen. 
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Programme 


#<24)iIPSHAPE,«shape*(6),46,24,0 
2130 a*-INKEY*HF a*="" THE ,; 21 ' 30 

2 J 4 ° 1F «»■"O" THEN symb=0(GOTO 2900 

? F THEN symb-leGOTO 2900 

a *“" 2 " TH£ N symb-2iGOTO 2900 

2 j 7 ® J F ***"3" THEN symb—3■GOTO 2900 

2 Jf° IF a ** s " 4 " THEN symb-4sG0T0 2900 

IF a *“" 5 '’ THEN Bymb*5iGDTD 2900 

22 °° J F a **'' Ä " THE N symb-6;GOTO 2900 

2210 IF INKEY<IS)«0 THEN 1890 

2220 GOTO 2130 
2230 REM laden 
2240 MODE 1 
22S0 CLOSEINiCLOSEQUT 

CHR*«!)* 1 ^ 17,3,PR1NT CHR4<24> | "LADEN"| 

2270 ^- oc TE ^,10* INPUT"Name des zu laden 
den Programms ";name* 

22B0 OPENIN name* 

2290 FOR sas—1 TO 12 

2300 FOR sbs-1 TO 20 

2310 INPUT #9,espfelX(sbs,sas) 

2320 NEXT sbs 

2330 NEXT sas 

2340 INPUT «9,ediamant 

2330 INPUT 49, xxpo 

2360 INPUT #9,yypo 

2370 INPUT 49,eschmeanz 

23B0 IF eschmeanz<-0 THEN 2440 

2390 FOR schme-1 TO eschmeanz 

2400 INPUT 49,xx2(schme) 

2410 INPUT #9,yy2(schme) 

2420 NEXT schme 
2430 durchlauf«1 
2440 CLOSEINiGOTO 1B90 
2450 REM speichern 
2460 MODE 1 

2470 LOCATE 17,3iPRINT CHR*(24)|"SPEICHE 
RN"|CHR*(24) 

2480 LOCATE 1,lOiINPUT"Name des zu speie 
hernden Programms "|name* 

2490 OPENOUT name* 

2500 FOR sas-1 TO 12 

2310 FOR sbs-1 TO 20 

2520 PRINT#9,espfelX(sbs,sas) 

2530 NEXT sbs 

2540 NEXT sas 

2550 PRINT49,ediamant 

2560 PRINT89,xxpo 

2570 PRINT«9,yypo 

25B0 PRINT49,eschmeanz 

2590 IF eschmeanz<-O THEN 2640 

2600 FOR schme-1 TO sschmeanz 

2610 PRINT#9,xx2(schme) 

2620 PRINT #9,yy2(schme) 

2630 NEXT schme 

2640 CLOSEOUTiGOTO 1890 

2650 REM spiel ueber gamedesigner 

2660 MODE 1 

2670 FOR sas-1 TO 12 

2680 FOR sbs-1 TO 20 

2690 spfelX(sbs,sas)-espfelX(sbs,sas 


) 

2700 NEXT sbs 
2710 NEXT sas 
2720 tot"0 

2730 hoelevel-lilevel-i 
2740 X—KXpOlyayypo 
2750 schmeanzaeschmeanz 

2760 IF schmeanz >0 THEN FOR schmeai TO s 
chmeanzixx (schme) -xx2(schme) ivy (schme) »v 
y2(schme)iNEXT schme 
2770 dauer-4 
2780 steinXaO. 

2790 LOCATE 12,1iPRINT"8PIEL8ZENEi »inan 
e* 

2B00 FOR sasai TO 12 
2810 FOR sbs-1 TO 20 

2820 IPSHAPE,8shape*(spf el X (sbs, sas) 

),sbs»4-4,sas*4~2,0 

2830 NEXT sbs 

2840 NEXT sas 

2850 diamant-ediamant 

2860 608UB 1130 

2870 GOTO 1890 

2880 80T0 2880 

2890 REM editor f uer bildaufbau 
2900 h*-"" 

2910 MODE 1 

2920 FOR sas-1 TO 12iF0R sbs-1 TO 20iIP8 
HAPE,Bshape*(espf elX (sbs, sas)) ,sbs«4-4,s 
as#4—2,0 

2930 NEXT sbs,sas 

2940 IF durch1auf-1 THEN FOR yay-2 TO 11 
•FOR Max— 2 TO 19iespfelX(xax v yay)-symbiN 
EXT xax,yayiGOTO 2030 
2950 x—2iy—2 

2960 IP6HAPE,Bhand*,x«4-4,y*4-2,3 
2970 h*-shape*(espfelX(x,y)) 

2980 axx-xiayy-y 
2990 j-JOY(O) 

3000 IF INKEY (lB)-O THEN a*-""iGOTO 2030 

3010 FOR verzoe-1 TO SOiNEXT varzoe 

3020 IF j-1 THEN y-y-1«GOTO 3150 

3030 IF j—2 THEN y-y+1iGOTO 3150 

3040 IF j—4 THEN x-x-liGOTO 3150 

3050 IF j—8 THEN x-x+1iGOTO 3150 

3060 IF j< >16 THEN GOTO 2990 

3070 IF espfelX(x, y J-6 THEN GOTO 2980 

3080 IF espfelX(x,y)-4 THEN ediamant-edi 

amant—1 

3090 IF espfelX(x,y)=5 THEN GOTO 29B0 
3100 IF symb-6 THEN eschmeanz—eschmeanz+ 

1 

3110 IF symb—6 THEN xx2(eschmeanz)—xiyy2 
(eschmeanz)-y 

3120 IF symb—4 THEN ediamant-ediamant+1 

3130 IF symb—5 THEN xxpo—xiyypo—y 

3140 espfelXtx,y)-symb 

3150 IF x>19 THEN x=19 

3160 IF x<2 THEN x-2 

3170 IF y>l1 THEN y-11 

3160 IF y<2 THEN y-2 

3190 IXSHAPE,8h*,ax x *4-4,ayy*4-2,flhand*, 
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Programme_ 

x*4-4,y*4-2,4 
3200 GOTO 2970 
3210 REM titalbild 
3220 MODE 1 
3230 durchlau-f-0 
3240 KhoiHni*0 
3250 ■Bchmeanz^O 
3260 tot-0 
3270 adiamantaO 

3280 INK 1,23iINK O.OiINK 2,7iINK 3,11 
3290 FOR x = l TO 20 STEP 2 
3300 IPSHAPE,Gshape*(3),x*4-4,2,0 
3310 IPSHAPE, Sahapa*< 1 )* <m+1> *4-4,2,0 
3320 IPBHAPE,**hapeS(1 ),m* 4-4,46,0 
3330 IPSHAPE,a«hapa*<3 >,<m+ 1>*4-4,46,0 
3340 NEXT x 

3350 FOR y-2 TO 11 STEP 2 

3360 IPBHAPE,«shapa*<1),0,y*4-2,0 

3370 IPBHAPE,Bshapa*(3),0,<y+l)*4-2,0 

33B0 IPSHAPE,<§sh*pe*<3> ,76,y*4-2,0 

3390 IPBHAPE,Gahapa*(1),76* <y+l)*4-2,0 

3400 NEXT y 

3410 RESTORE 3600 

3420 schmaanz- i O 

3430 LOCATE 15,7iPRINT"BOULDER DASH"| 

3440 LOCATE 15,15iPRINT CHR*(164)|" by R 
amaSo-ft") 

3450 LOCATE 13,lBiPRINT CHR«24> | "B" »CHR 
4 (24) | 11 f uar Bama-Daai gnar 11 1 
3460 LOCATE 13,21iPRINT CHR*<24>j"B"|CHR 
$<241|" fuar Spiel "| 

3470 IF INKEY« >"" THEN 3470 
3480 a«-INKEY4iIF a«>"" THEN 3510 
3490 ON SQ<1> BOSUB 3550 
3500 GOTO 34B0 

3510 IF ««-"S" OR THEN ic-liy“liFO 

R a«l TO 5000iNEXT aiGOSUB 90itot«OiGOTO 
3220 

3520 GOSUB 1B20 
3530 REM malodia 
3540 RESTORE 3600 

3550 READ ton,dauariIF d*uar=0 THEN 3540 

3560 SOUND 1,ton,dauar,6 

3570 SOUND 2,ton+2,dauer,4 

3580 SOUND 4,ton+4,dauar,2 

3590 RETURN 

3600 DATA 159,25,179,25,0,1,179,150,0,50 
,142,25,127,25,113,25,106,25,95,25,89,25 
,95,37,106,12,0,1,106,150,0,50,106,25,0, 

1,106,25,119,25,134,25,142,25,159,25 
3610 DATA 134,25,142,25,0,1,142,100,159, 
50,179,50,142,25,159,25,0,1,159,50,213,5 
O,179,50,142,25,0,1,142,25,0,1,142,100' 
3620 DATA 159,25,179,25,0,1,179,150,0,50 
,142,25,127,25,113,25,106,25,95,25,89,25 
,95,37,106,12,0,1,106,150,0,50,106,25,0, 

1,106,25,119,25,134,25,142,25,159,25 
3630 DATA 134,25,142,25,0,1,142,100,159, 
50,179,50,142,25,159,25,0,1,159,50,213,5 
0,179,50,142,25,0,1,142,25,0,1,142,100 
3640 DATA 159,25,179,25,0,1,179,150,0,50 
,142,25,127,25,113,25,106,25,95,25,89,25 


,95,37,106,12,0,1,106,150,0,50,106,25,0, 
1,106,25,119,25,134,25,142,25,159,25 
3650 DATA 134,25,142,25,0,1,142,100,159, 
50,179,50,142,25,159,25,0,1,159,50,213,5 
0 

3660 DATA 179,50,142,25,0,1,142,25,0,1,1 

42.50.159.25.179.50.142.50.159.50.213.50 
,179,50,142,25,0,1,142,25,0,1,142,100 
3670 DATA 0,1,142,100,0,1,142,100,106,50 
,95,50,B9,50,95,25,106,25 

3680 DATA 95,75,106,25,119,50,106,25,142 
,25,0,1,142,200,0,1,142,100,0,1,142,100, 
106,50,95,50,89,50,95,25,106,25,95,75,10 
6,25,119,50,95,50,89,50,119,50,134,50,14 

2.50 

3690 DATA 0,0 


CHECK VIt PRUEFSUMMENt 1190- 1200 
1210- 1220 

40265 

29146 

ZEILENNR.1 SUMMEN 

1230- 1240 

20965 

10- 

20 

10056 

1250- 1260 

59655 

30- 

40 

59292 

1270- 1260 

46957 

50- 

60 

66482 

1290- 1300t100014 

70- 

00 

30437 

1310- 1320 

79506 

90- 

100 

81267 

1330- 1340 

71659 

110- 

120 

00711 

1350- 1360 

16936 

130- 

140 

Bl 053 

1370- 1300 

15410 

150- 

160 

00765 

1390- 1400 

21500 

170- 

100 

00999 

1410- 1420 

31003 

190- 

200 

01254 

1430- 1440 

34069 

210- 

220 

44203 

1450- 1460 

59427 

230- 

240 

00746 

1470- 1400 

37683 

250- 

260 

81606 

1490- 1500 

46750 

270- 

200 

81927 

1510- 1520 

71449 

290- 

300 

79790 

1530- 1540 

20161 

310- 

320 

00627 

1550- 1560 

44795 

330- 

340 

44212 

1570- 1500 


350- 

360 

01112 

1590- 1600 

17033 

370- 

300 

00741 

1610- 1620 

4644 

390- 

400 

00527 

1630- 1640 

4686 

410- 

420 

80969 

1650- 1660 

31557 

430- 

440 

01663 

1670- 1600 

40223 

450- 

460 

01769 

1690- 1700 

77072 

470- 

400 

44221 

1710- 1720 

57949 

490- 

500 

00790 

1730- 1740 

69291 

510- 

520 

81141 

1750- 1760 

119530 

530- 

540 

81706 

1770- 1780 

90029 

550- 

560 

01175 

1790- 1000 

377 

570- 

500 

01063 

1010- 1020 

19203 

590- 

600 

44230 

1030- 1840 

16503 

610- 

620 

01338 

1050- 1860 

-40107 

630- 

640 

01072 

1070- 1600 

100326 

650- 

660 

00762 

1090- 1900 

36279 

670- 

680 

80740 

1910- 1920 

86385 

690- 

700 

00102 

1930- 1940 

B6707 

710- 

720 

01260 

1950- 1960 

54400 

730- 

740 

16635 

1970- 1900 

21671 

750- 

760 

16203 

1990- 2000 

19161 

770- 

700 

27109 

2010- 2020 

21118 

790- 

000 

14062 

2030- 2040 

42753 

010- 

020 

35249 

2050- 2060 

52107 

030- 

840 

5342 

2070- 2000 

51023 

850- 

060 

21009 

2090- 2100 

56470 

070- 

080 

25980 

2110- 2120 

58050 

090- 

900 

110677 

2130- 2140 

51036 

910- 

920 

42B6 

2150- 2160 

61111 

930- 

940 

65039 

2170- 2160 

61235 

950- 

960 

57476 

2190- 2200 

61359 

970- 

900 

37293 

2210- 2220 

9501 

990- 

1000 

24054 

2230- 2240 

3003 

1010- 

102 

60121 

2250- 2260 

28064 

1030- 

1040 

36941 

2270- 2200 

39934 

1050- 

1060 

24054 

2290- 2300 

20797 

1070- 

1000 

29162 

2310- 2320 

47050 

1090- 

110 

68385 

2330- 2340 

16743 

1110- 

112 

24054 

2350- 2360 

14095 

1130- 

1140 

30029 

2370- 236 

30737 

11 SQ- 

116 

25399 

2390- 2400 

61792 

1170- 

1180 

48263 

2410^ 2420 
£430— 2440 
2450- 246 

29964 

13910 

7127 


2470- 24B0I 92760 
2490- 25001 13637 
2510- 2520i 52B64 
2530- 25401 0353 

2550- 25601 10525 
2570- 25B0i 20554 
2590- 26001 59709 
2610- 26201 40311 
2630- 2640i 7107 

2650- 2660i 34041 
2670- 2600t 20797 
2690- 27001 51065 
2710- 2720i 7009 

2730- 27401 62230 
2750- 2760i 42112 
2770- 2700t 13152 
2790- 2000t 41790 
2010- 2020t 30206 
2030- 2040t 0353 

2050- 2060t 20302 
2070- 20001 1230 

2090- 29001 31605 
2910- 2920t 20304 
2930- 2940t 59059 
2950- 2960t 69430 
2970- 2900t 72967 
2990- 3000t 31390 
3010- 3020t 72306 
3030- 3040t 62422 
3050- 3060t; 42951 
3070- 3000t 43040 
3090- 3100t 66016 
3110- 3120t 72263 
3130- 3140t 43370 
3150- 3160t 29146 
3170- 3100t 20965 
3190- 3200t 50423 
3210- 3220t 7034 

3230- 3240t 23435 
3250- 3260t 16059 
3270- 3200t 22729 
3290- 33Ö0i 53790 
3310- 33201101302 
3330- 3340t 59715 
3350- 3360t 54609 
3370- 3300t105001 
3390- 3400t 62370 
3410- 3420t 11359 
3430- 3440t 54972 
3450- 3460t 91615 
3470- 3480t 30051 
3490- 3500t 4715 

3510- 3520t 31304 
3530- 3540t 5006 

3550- 3560t 76973 
3570- 3500t 45150 
3590- 3600t 15531 
3610- 3620t 49711 
3630- 3640t 49711 
3650- 3660t 30319 
3670- 36B0t 27163 
3690- t 700 
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tips& tricks 


Tips & Tricks für den Schneider 


10 ' *** tape-file *** 

20 ' Copyright -frank brall 


Tapefile/Discfile (für Kassette und Diskette zu verwenden) 

Das Kopieren von BinärenrFiles bereitet beim Schneider CPC 
leider immer ein paar Probleme. Zwar hat der Schneider-Com¬ 
puter vorzügliche Befehle zum Laden und Abspeichem von be¬ 
liebigen Speicherbereichen, jedoch existiert kein Befehl zum 
Feststellen von Startadresse und Läng^ eines schon abgespei¬ 
cherten Programmes. 

Das hier vorgestellte Programm macht nun diesem Manko ein 
Ende. 

Sie starten das Programm TABEFILE mit RUN und werden da¬ 
durch aufgefordert, eine Kassette einzulegen. Dieses bestätigen 
Sie durch das Betätigen der Taste PLAY und einerweiteren be¬ 
liebigen Taste. Nach kurzer Zeit erscheint die Meldung 
„FOUND...“ auf dem Bildschirm. Ebenfalls einige Augenblicke 
später wird die Meldung "BLOCK OK“ ausgegeben. In diesem 
Augenblick betätigen Sie die Taste ESC. Dadurch werden die 
Startadresse, die Länge und die Art des Programmes angezeigt 
Diese Daten können Sie nun zum Kopieren von dem entspre¬ 
chenden File verwenden. 


30 ' 

40 ON BREAK GOSUB 290 

50 CLSSPRINT"**** TAPEFILE **** F.Bra 
11 " 

60 PRINTsPRINT 

70 PRINT"Kassette einlegen und nach der" 
80 PRINT"Meldüng 'OK' ESC ESC druecken ! 
"SPRINT 
85 !TAPE.IN 
90 CAT:STOP 

290 # *** auswertung *** 

300 PRINT: PRINTs PEN 3: PR INT "Auswertung: 11 
SPRINT 

320 name*="":FQR i=47244 TO 47259 
330 name*=name$+CHR*<PEEKCi>):NEXT i 
340 Iaenge= PEEK(47269)»256+PEEK(47268) 
350 Start = PEEK(47266)*256+PEEK<47265) 
360 art =PEEK(47262) 

370 PRINT"Filename: "nameS 
380 PRINT 11 Startadrs "start 
390 PRINT"Laenge : "laenge;“ Bytes" 

400 PRINT:PRINT"Art :"art;" (0/1 Basic 

2 Binaer 22 Text)" 


CHECK VlsPRUEFSUMMEN: 

30- 

40: 

1402 


50- 

60: 

33722 

ZEILENNR.: GUMMEN 

70- 

90: 

96139 

10- 20: 43447 

95- 

90: 

4962 


290- 300: 44719 390- 390: 57091 

320- 330: 93430 400- : 16090 

340- 350: 109771 “---- 

360- 370: 31047 GESAMTCHECKSUMME: 57777 



Die Floppy-Disk-Stationen F1-S (ingle = 
1 Laufwerk) und F1-D (ouble = 2 Lauf¬ 
werke) sind hochwertige und leistungs¬ 
starke Diskettenspeicher mit großer Spei¬ 
cherkapazität und hoher Datenübertra¬ 
gungsgeschwindigkeit Verwendet wird 
die Standard Diskettengröße 5.25”. Mo¬ 
dernste Controller Elektronik, sowie Lauf¬ 
werke (BASF 6138) mit sehr guter Ein¬ 
satzbewährtheit garantieren ein dauer¬ 
haftes und fehlerfreies Arbeiten der Sta- 
' tion. Professionelle Betriebssysteme 
(CP/M 2.2 und erweitertes BASIC Disket¬ 
ten Betriebssystem VDOS) bieten dem Be¬ 


nutzer die Möglichkeiten zum Einsatz 
hochwertiger Anwender- und System¬ 
software, sowie eigener Programme. 

Die Floppy-Disk-Station F1-S kann mit 
dem Aufrüst-Kit A1-S zur Floppy-Disk- 
Station F1-D ausgebaut werden. 

Hardwarekonzept: 

- 5.25” Laufwerke 6138 der Firma 
BASF; 708 KB formatierte Speicherka¬ 
pazität pro Laufwerk (d.h. 1.4 MB bei 
der Station Fl -D); 80 Spuren pro Seite; 
Zweiseitig (DS = Doppelkopf Lauf¬ 
werk); Doppelte Schreibdichte (DD); 


4 msec Spurwechselzeit; IBM 34 For¬ 
mat; es werden Disketten der Bezeich¬ 
nung DS/DD 96 tpi benötigt 

- Der Controller wird nicht direkt an den 
Expansions Bus angesteckt, sondern 
mit einem Flachbandkabel mit ent¬ 
sprechendem Stecker mit diesem ver¬ 
bunden. Dadurch werden die Kontakte 
niefit mechanisch belastet wodurch 
sich eine optimale Kontaktsicherheit 
ergibt. 

- Mit dem Adapterkabel FDA-1, kann ein 
3” Schneider Laufwerk angeschlossen 
werden. Hierzu sind keinerlei Soft- 
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report 


oder Hardwareänderungen nötig. Das 
3” Laufwerk wird voll integriert. 

- Ausführliches deutsches Handbuch 
mit CP/M Befehlseinführung. 

- Solide ergonomische, farblich an den 
CPC 464 angepaßte Gehäuse für Lauf¬ 
werke und Controller. 

- Abmessungen: 

305 x 150 x 90 (L x B x H in mm) 

- Gewichte: FS-S 3,1 kg, F1-D 4,6 kg. 


Softwarekonzept: 

- 2 Betriebssysteme: 


* CP/M 2.2 voll angepaßt mit Utilities 

* erweitertes BASIC Diskettenbetriebs¬ 
system VDOS (Vortex Disk Operating 
System). Zum Arbeiten unter BASIC 
wird keine Systemdiskette benötigt, da 
z. B. selbst zum Formatieren einer Dis¬ 
kette ein eigener, im Controller fest ein¬ 
gebauter Befehl vorhanden ist. 

- Alle Meldungen in Deutsch. 

- Alle Utilities sind menügesteuert. 

Preise: 

Floppy Disk Station F1-S = 1.198,- DM 
Floppy Disk Station F1-D = 1.698,- DM 


Lieferumfang: 

1.1 Diskettenstation (ein oder zwei Lauf¬ 
werke) mit Controller und allen Kabeln. 

2.1 CP/M 2.2 Systemdiskette mit dem 
CP/M 2.2 Betriebssystem und Utilities 3.1 
Deutsches Handbuch mit ausführlicher 
CP/M 2.2 Befehlseinführung. 


Diese Floppy Disk Stationen sind bei der 
Vbrtex Vertriebs GmbH 
Klingenberg 13 
7106 Neustadt 5 
erhältlich. 



FORTH 


Forth gehört zu den höheren Program¬ 
miersprachen, die auf vielen Personal¬ 
computern Anwendung finden und auch 
im Homecomputer-Bereich immer mehr 
berücksichtigt wird. Die Vorteile dieser 
Sprache liegen in ihrer Flexibilität und in 
der Schnelligkeit, mit der in Forth ge¬ 
schriebene Programme laufen können. 
Dieses Buch gibt dem Anfänger eine erste 
Einführung in die Strukturen und die Be¬ 
sonderheiten dieser modernen Program¬ 
miersprache. Jeder der dieses Buch liest 
braucht keine Vorkenntnisse vorzuwei¬ 
sen, da es die Grundlagen von Forth und 



der Datentechnik weitergibt. So werden 
unter anderem 

Basiskonzepte, 

die Handhabung von Zahlen, 

die Handhabung von Variablen, 

Verzweigung 

und Übungsbeispiele 

aufgezeigt. Erschienen ist dieses Buch im 

Goldmann-Veriag, 

München, 

ISBN 3-442-13128-6 für 12,80 DM 

★ ☆ ★ 

Ms weitere Neuerscheinung im Bereich der hö¬ 
heren Programmiersprachen stellt der Gold¬ 
mann-Verlag 


PASCAL 


vor. Diese Programmiersprache ist fast 
ausschließlich auf größeren Rechner-An¬ 
lagen installiert. Gelegentlich findet sie 
aber auch auf Personalcomputern An¬ 
wendung. Der Profi weiß es ohnehin, Tur- 
bo-Pascal ist zur Zeit der absolute Renner 
in der Homecomputerszene. Das kommt 
natürlich nicht von ungefähr, denn PAS¬ 
CAL zeichnet sich durch besondere Über¬ 
sichtlichkeit in den verfaßten Program¬ 
men aus, Das Buch gibt einen Überblick 
über 


die Struktur von Pascal- 

Programmen, 

PascabUhterprogamme, 


IF- und FOR-Anweisungen, 
Schleifen 

und praktische Beispiele 



Der Anfänger erhält hier auf leicht ver¬ 
ständliche, gegliederte Art den Einstieg in 
die Programmiersprache Pascal und 
macht ihn in effizienterWeise mit den Be¬ 
sonderheiten dieser modernen Program¬ 
miersprache vertraut. 

ISBN 3-442-13127-8, 

Preis: 12,80 DM 
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Computer Jahrbuch '86 

von Dietmar Eirich/Peter Herzberg 


report 


Dieses Buch gibt jedem Computer-Fan ei¬ 
nen Überblick über die ganze Weit der 
Microcomputer in einem Band. Jeder der 
einen Microcomputer erwerben möchte, 
sollte unbedingt dieses Buch lesen. Erfin¬ 
det hier 

den Stand der Technik in der Mikro-Elektronik 
die Unterschiede der Computer-Systeme 
einen Einkaufs-Check 

Entscheidungshilfen mit Preisvergleichstabeile 

Adressen von Herstellern und Computerdubs 
um 


In diesem Jahrbuch ist daszusammenge- 
faßt, was jeder Computer-Anwender, -Ein¬ 
steiger, Freak und Profi wissen muß, um 
sich im verwirrenden Angebot der Syste¬ 
me und Programme zurechtzufinden. 

Hier finden Sie Kriterien und Auskünfte. 

Heyne Computerbüdier München. 

ISBN 3-453-47056-7, 

Preis: 16.80 DM 
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Die RAM Karten der 
SP-Serie (64KB, 256 
KB, 320 KB und 512 
KB) vergrößern den 
CPC Arbeitsspeicher 
auf volle 64 KB und 
stellen einen 32 
KB Druckerpuffer 
(.Spooler 1 ) zur Verfü¬ 
gung. Vom Speicher 
her gibt es damit kei¬ 
nerlei Einschränkun¬ 
gen mehr bezüglich 
Lauffähigkeit von 
Standard CP/M Soft¬ 
ware. Programme 
wie dBase oder 
Wordstar arbeiten 
nun uneinge¬ 
schränkt 


Die Karten SP256, SP320 und SP512 bie¬ 
ten zudem die Möglichkeit einer RAM- 
Floppy, also eines superschnellen Mas¬ 
senspeichers. Alle Karten basieren auf 
derselben Platine. Jede Karte kann durch 
die entsprechenden Ausbausätze (Kit’s) 
biszurSP512 ausgebaut werden: kein Lö¬ 
ten, nur Einstecken von integrierten 
Schaltungen. Die Speicherkarte wird di¬ 
rekt im CPC untergebracht. 
Hardwarekonzept: 

- Erweiterung des Arbeitsspeichers von 
48 KB RAM auf 64 KB RAM 

- Bereitstellung eines 32 KB Druckerpuf¬ 
fers 

t RAM - Floppy bei den Karten SP256, 
SP320 und SP512 

Durch Ausbausätze jede Karte bis zur 
SP512 ausbaubar, z. B. SP64 zur SP512 

- Einbau der Platine direkt in den CPC 

- völlig unkomplizierter Einbau: kein Lö¬ 
ten 

SoRwarekonzepf; 

- Durch die mitgelieferte Software (für 
BASIC im ROM, für CP/M auf Diskette) 
wird der Speicher sowohl unter BASIC 
als auch unter CP/M voll in die CPC 
Soft- und Hardwareumgebung inte¬ 
griert und ist damitvielfäitig ersetzbar. 


■Inhalt 6 


3P512: CPC RAH inatasant 576 KB 


1. 


SIx«»/yyy k .a, u t t / j , d.r «....t. RAH 

“**“» »»«‘«».r «•.... alN . 


SP64, SP256, SP320, SP512 
1 - 1 Speicherplatine 

2 . 1 Systemdiskette 

3. 1 ausführliche Einbauanleitung 

Kit SKI 28/384, SK128/576, SK320/576, 
384/576 

1. 1 Satz ICs 

2 . 1 Systemdiskette 

3. 1 ausführliche Einbauanleitung 

Preise: 

SP64 = 225,- OM 
SP256 = 533,- DM 
SP320 = 573,— DM 
SP512 = 881,- DM 

Diese HAM-Karten sind bei der Vortex Vertriebs 
GmbH, Klingenberg 13,7106 Neoenstadt 5 
erhältlich. 
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ELEPHANT. 
KOMPROMISSLOS 
ERSTE WAHL. 


"NEVER 


FORGETS!’ 



Speichern und Drucken. Fehlerlos. Mit 100% Sicherheit: 
as ist Eiephant Memory Systems™. _ . . „ 

Inter diesem Markennamen erhalten Sie hochwertiges Zubehör 
ir perfekt arbeitende Kommunikations-Systeme der Text- 
nd Datenverarbeitung - wie Disketten, Farbbänder, Farbband- 

erlangen Sie Eiephant Memory Systems™. 

ELEPHANTNEVER FORGETS. 


MARCOM Computemrbebör GmbH 

podbieiskislralk 321, 30Ü0 Hannover 51, Tel. (0511) 647420 

. _ - 

9. Telex: 858 6600 





















































































